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Abstract 


Presents  computer  programs,  written  in  FORTRAN  IV,  for 
analysis  of  inventory  data,  and  computation  of  actual  and  optimum 
growing  stocks  and  allowable  cuts,  and  other  values  needed  for 
forest  management  planning.  Computed  volumes  and  areas  are 
summarized  in  a  timber  management  plan.  Effects  of  cultural 
operations  and  other  changes  are  accounted  for  in  computation  of 
both  actual  and  optimum  conditions.  Supersedes  Research  Paper 
RM-63. 

Oxford:  624:U681.3.  Keywords:  Allowable  cut,  forest  manage- 
ment, timber  management  ^Pinus  ponderosa^Pinus  contorta] 
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Computerized  Preparation  of  Timber  Management  Plans:  TEVAP2 

Clifford  A.  Myers 


Introduction 

Procedures  and  a  computer  program 
(TEVAP)  to  process  inventory  records  and  to 
write  timber  management  plans  (Myers  1970) 
were  tested  for  2  years  on  the  Black  Hills  Na- 
tional Forest.  Following  successful  completion 
of  the  test  (Edwards  et  al.  1973),  the  procedures 
and  program  TEVAP  were  revised.  Modified 
procedures  and  computer  program  TEVAP2  are 
presented  here  to  supersede  the  1970  publication, 
USDA  Forest  Service  Research  Paper  RM-63. 
Some  changes  resulted  from  experience  gained 
during  the  field  test.  These  include  increasing 
the  number  of  blocks  and  working  groups  that 
can  be  accommodated,  and  changing  program 
organization  to  simplify  application  to  additional 
species.  Other  modifications  reflect  improved 
modeling  of  changes  caused  by  silvicultural 
treatments  (Myers  1971)  and  addition  of  the 
effects  of  dwarf  mistletoe  to  appropriate  growth 
equations  (Myers  et  al.  1971,  Myers  et  al.  1972). 

As  listed  in  appendix  1,  TEVAP2  may  be 
used  for:  (1)  ponderosa  pine  (Pinus  ponderosa 
Laws.)  in  the  Black  Hills  of  South  Dakota  and 
Wyoming,  (2)  ponderosa  pine  in  Arizona  and 
New  Mexico,  and  (3)  lodgepole  pine  (Pinus  con- 
torta  Dougl.)  in  Colorado  and  Wyoming.  It  is 
quite  easy  to  modify  the  program  for  use  with 
other  species.  The  changes  and  additions  needed 
are  explained  in  detail. 

TEVAP2was  written  in  standard  FORTRAN 
IV  and  tested  on  a  CDC  6400  computer.  In  addi- 
tion, it  was  run  on  a  Univac  1108.  Several 
FORTRAN  statements  were  modified  to  match 
the  rounding  operations  of  the  1108,  where 
proper  execution  by  a  CDC  6400  would  not  be 
affected. 


Purpose 

A  forest  operated  as  a  business  enterprise 
produces  more  than  wood,  forage,  and  other 
products.  It  is  a  prolific  source  of  treatment  and 
inventory  records,  reports,  plans,  maps,  and 
other  information.  As  with  other  businesses, 
efficient  information  processing  is  needed  so 
that  all  relevant  information  can  be  used  for 
decisionmaking. 


Procedures  for  analyzing  inventory  and 
other  data  and  reducing  them  to  summary  values 
useful  in  planning  have  been  available  for  many 
years.  These  procedures  have  long  provided  in- 
formation needed  for  management,  and  their 
validity  and  usefulness  usually  have  been  widely 
accepted.  There  are,  however,  important  defi- 
ciencies in  the  ways  data  have  been  handled 
and  in  the  conventional  methods  of  computation 
described  in  forest  management  texts.  Specif- 
ically, the  use  of  maps  and  overlays,  timber 
atlas  and  similar  records,  and  desk  calculators 
involve  such  difficulties  as  the  following: 

1.  There  is  usually  more  information  avail- 
able than  can  be  stored,  retrieved,  and  analyzed 
efficiently. 

2.  Maps,  photographs,  overlays,  and  tabu- 
lations of  numerical  data  freeze  the  information 
at  one  or  a  few  points  in  time.  Changes  in  re- 
corded information  in  response  to  changes  in 
the  forest  are  expensive  and  time  consuming. 

3.  Higher  offices  may  ask  for  information 
already  assembled  in  whole  or  in  part  for  a 
previous  report,  but  for  which  the  worksheets 
are  no  longer  available.  Such  requests  can  lead 
to  much  repetition  in  the  assembly  and  analysis 
of  data. 

4.  Information  gathered  for  a  specific  pur- 
pose may  be  placed  in  a  dead  file  after  im- 
mediate needs  are  met.  It  may,  however,  have 
future  value  in  management  and  decision- 
making, if  it  could  be  stored  and  relocated 
efficiently. 

5.  Timber  management  appears  to  proceed 
by  steps,  from  management  plan  to  management 
plan.  Standing  timber  can  and  should  be  ac- 
counted for  continuously,  however,  as  is  done 
for  products  entering  and  leaving  a  warehouse. 
There  is  danger  of  forgetting  that  a  productive 
forest  is  a  continuous,  dynamic  system. 

High-speed  computers  with  reasonably  large 
memory  capacity  provide  a  means  of  efficiently 
extracting  large  amounts  of  information  from 
an  accumulation  of  records.  Data  can  be  stored, 
retrieved,  and  updated  with  relative  ease.  Com- 
putations, if  preplanned,  can  be  done  so  cheaply 
that  higher  offices  can  obtain  all  the  reports 
desired  without  disrupting  the  work  schedule  of 
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local  managers.  There  is  no  need  to  depend  on 
plans  that  are  expected  to  apply  for  several 
years  despite  fires,  epidemics,  and  changes  in 
economic  conditions.  A  new  plan,  new  maps, 
new  cutting  budget,  and  a  new  work  schedule 
can  be  obtained  as  soon  as  recent  changes  in 
forest  conditions  have  been  recorded  in  the  data 
file. 

Program  TEVAP2  (Timber  Evaluation  And 
Planning),  described  herein  and  listed  in  appen- 
dix 1,  provides  a  means  of  obtaining  guidance 
quickly  from  a  large  volume  of  information.  It 
is  an  example  of  the  application  of  some  infor- 
mation handling  and  analysis  procedures  to 
forest  management.  The  program  was  developed 
around  relationships  that  apply  to  timber  pro- 
duction in  even-aged  stands  because  such 
relationships  were  available.  It  can  be  expanded, 
however,  to  include  forage  and  other  products 
and  timber  production  in  many-aged  stands  with- 
out change  in  the  basic  system. 

With  program  TEVAP2,  a  manager  can  ob- 
tain a  management  plan  whenever  he  wants  one. 
A  computer  run,  using  updated  records,  can  be 
made  each  winter  during  the  planning  period 
between  field  or  growing  seasons.  Because  large 
amounts  of  tedious  computations  and  analyses 
are  automated,  management  plans  need  not  be 
prepared  only  at  intervals  of  perhaps  10  years. 

The  term  management  plan,  as  used  here, 
refers  to  the  quantitative  section  of  a  conven- 
tional timber  management  plan.  This  material, 
in  the  form  produced  by  TEVAP2  and  in  the 
way  in  which  it  is  used,  is  perhaps  better  re- 
ferred to  as  a  management  guide.  Such  informa- 
tion, regardless  of  how  computed,  serves  as  a 
guide  or  aid  to  management  rather  than  as  a 
plan,  but  the  term  "plan"  has  been  used  for 
many  years.  Following  common  modern 
practice,  the  transportation  system  and  other 
general  details  can  best  be  described  in  a  report 
that  covers  the  entire  forest  and  provides  infor- 
mation common  to  all  resources.  The  output  of 
TEVAP2  is,  then,  a  specialized  chapter  to  be 
added  to  this  general  report. 

Programs  such  as  TEVAP2  produce  informa- 
tion that  can  be  used  for  more  purposes  than 
control  of  current  operations.  They  provide  input 
data  for  programs  that  simulate  operation  of  a 
forest  under  actual  conditions.  A  manager  can 
use  the  results  of  simulation  to  determine  which 
one  of  several  management  alternatives  will 
best  meet  his  objectives  (Chorafas  1965). 


Data  Handling  and  Management 

Forest  resource  records  are  assembled  from 
several  sources.  For  timber,  these  sources  are: 
(1)  periodic  forest  inventory,  (2)  job  reports 


prepared  at  the  completion  of  each  thinning,  s) 
planting,  sale,  or  other  cultural  operation,  (3)  111 
area  descriptions  written  after  each  fire  or  other  111 
catastrophe,  and  (4)  stand  and  compartment  V 
analyses  made  as  funds  become  available.  Re- 
sults of  periodic  inventories  appear  in  manage-  [fl 
ment  plans  prepared  after  each  inventory.  Job  . 
reports  and  other  data  may  be  posted  on  the  111 
maps  and  tables  of  a  timber  atlas  and  summar- 
ized in  annual  reports.  Although  procedures 
vary  among  forest  regions  and  classes  of  owner- 
ship, almost  every  item  of  information  is  used 
at  some  step  in  management   and   decision- 1 
making.  Several  operational  computer  programs  P1 
for  the  analysis  of  periodic  inventories  illustrate  sl 
how  well  the  development  of  computation  pro- 
cedures  has  progressed.  11 

It  is  unusual,  however,  for  every  item  of  in-  f 
formation  to  be  used  for  all  appropriate  f' 
purposes.  For  example,  an  individual  fire  report 
becomes  part  of  the  annual  report  on  losses  and  * 
suppression  costs.  It  may  then  go  to  the  pro-  P 
tection  file  rather  than  to  be  processed  as  an  " 
important  item  of  inventory  data. 

There  are  valid  reasons  why  the  maximum  11 
amount  of  information  may  not  be  extracted  ^ 
from  each  item  of  data.  Problems  related  to  11 
storage  and  retrieval  are  frequently  of  great  ' S1 
importance.  These  include  the  size  of  record  1* 
files,  problems  of  assembling  the  data  for  use,  rt 
and  reassignment  of  people  who  know  what  has  S1 
been  recorded  and  where  to  find  it. 

A  forest  manager  is  faced  with  other  infor-  \  r 
mation  problems  that  are  less  easily  solved.  1 
There  is  little  value  in  pooling  records  unless  I'l 
they  can  be  updated  to  put  them  on  a  common  1  j 
time  base.  Also,  data  sufficient  for  a  particular 
purpose  may  not  be  complete  enough  for  more  1  1 
general  use.  A  report  on  a  thinning  job  may  1  1 
not  contain  sufficient  stand  or  site  data  to  per-  j  ^ 
mit  its  use  in  growth  projections. 

Procedures  used  in  TEVAP2  to  bypass  some 
of  the  problems  mentioned  above  are  based  on  ' 
availability  of  a  file  of  inventory  records  that  ' 
can  be  updated  as  needed.  This  file  contains  11 
stand  data  from  many  sources  such  as  land  " 
books,  job  reports,  and  inventories.  Stand  ' 
descriptions  prepared  soon  after  thinning,  fire  jsi 
suppression,  or  other  activities  provide  excel-  t; 
lent  up-to-date  inventory  data  and  are  used  as  j" 
such.  Conventional  inventories  sample  parts  of 
a  forest  not  already  described  in  other  records.  ■ 

Inventory  records  for  TEVAP2  are  sum- 
maries  of  work  reports  and  of  conventional  in-  1 
ventory  records.  They  contain  the  specific  items  i 
needed  for  program  execution  plus  other  items  •  1 
useful  in  sorting  and  summarizing  the  records.  J  " 
Overstory  and  understory  components  of  a  stand  " 
are  described  separately,  if  both  are  present. 
Computations  can  thus  be  made  for  stands  being 
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regenerated  by  shelterwood  or  seed-tree 
systems.  Growth  can  also  be  estimated  for  the 
many  uneven-aged  stands  that  may  be  described 
mathematically  as  two  stands,  overstory  and 
understory. 

Data  used  by  TEVAP2  can  be  updated  by 
computer  once  the  basic  relationships  needed 
have  been  determined.  How  inventory  records 
may  be  updated  is  explained  in  appendix  4. 

Description  of  Program  TEVAP2 

Program  TEVAP2  consists  of:  (1)  a  main 
program,  (2)  16  subroutines  that  perform  oper- 
ations common  to  all  species  and  working 
groups,  and  (3)  a  variable  number  of  sub- 
routines, each  of  which  contains  all  the  species- 
specific  relationships  required  for  one  species. 
For  brevity,  the  program  listing  in  appendix  1 
includes  only  three  species-related  subroutines. 
Any  or  all  of  the  three  may  be  replaced  by 
following  the  instructions  in  the  section  headed 
Basic  Information  Used.  Alternatively,  any 
number  of  species-specific  subroutines  may  be 
added.  Three  subroutines  (MAPS,  AREA1,  and 
AREA2)  provide  alternative  ways  of  computing 
areas,  and  only  one  of  them  is  used  during  a 
single  run.  A  single,  complete  program  run 
thus  uses  the  main  program,  14  general  sub- 
routines, and  at  least  one  species-specific 
subroutine. 

Content  and  purpose  of  each  routine  are 
described  in  the  following  sections.  Variable 
names  are  defined  in  the  program  listing  in 
appendix  1  and  in  the  list  of  contents  of  the 
data  deck.  The  list  of  data  cards  (in  the  section 
"Data  Deck  for  TEVAP2")  also  reports  the 
number  of  cards  needed  and  the  sequence  in 
which  they  are  read.  An  example  of  an  applica- 
tion of  TEVAP2  (appendix  2)  further  explains 
the  program. 

Numbers  of  blocks,  working  groups,  site 
classes,  and  age  classes  that  can  be  accommo- 
dated are  limited  by  the  dimensions  assigned 
in  COMMON  and  DIMENSION  statements.  As 
listed  in  appendix  1,  each  type  of  subdivision 
has  a  different  number  of  units  so  the  dimen- 
sions and  loops  that  pertain  to  each  subdivision 
can  be  identified.  Restrictions  to  be  observed, 
unless  appropriate  changes  are  made,  are  as 
follows: 

1.  The  working  circle  may  be  subdivided 
into  one  to  seven  blocks.  A  block  may  be  an 
isolated  unit  of  the  working  circle  or  one  or 
more  basic  administrative  units,  such  as  Ranger 
Districts.  There  must  be  at  least  one  block  in 
the  working  circle  for  program  execution. 


2.  A  maximum  of  five  working  groups  may 
be  defined  without  program  modification.  A 
working  group  consists  of  stands  of  the  same 
forest  type  and  managed  under  the  same  silvi- 
cultural  system  (Chapman  1950).  It  may  some- 
times be  necessary  to  exclude  a  portion  of  the 
working  circle  from  allowable  cut  computations. 
At  the  same  time,  all  the  other  values  may  be 
needed  to  prepare  impact  statements  and  for 
other  use.  Examples  of  such  special  situations 
are  stands  on  areas  being  examined  for  possible 
wilderness  classification.  In  such  cases,  a  work- 
ing group  named  DEFERRED  can  be  created. 
Statements  are  already  in  TEVAP2  to  bypass 
DEFERRED  working  groups  in  computing 
allowable  cut  totals.  If  more  than  one  species 
is  involved,  the  excluded  working  groups  may 
be  named  DEFERRED1,  DEFERRED2,  etc.,  and 
the  area  where  they  occur  designated  as  a 
separate  block. 

3.  Provision  is  made  for  35  vegetative  or 
use  types.  As  used  for  the  example  in  appendix 
2,  they  are  as  follows: 

Types  1-  5  -  Five  broad  age  classes  within  the 
first  working  group. 

Types  6-10  -  Five  age  classes  within  the  second 
working  group. 

Types  11-15  -  Five  age  classes  within  the  third 
working  group. 

Types  16-20  -  Five  age  classes  within  the  fourth 
working  group. 

Types  21-25  -  Five  age  classes  within  the  fifth 
working  group. 

Type  26  -  Deforested  areas  covered  by  brush. 

Type  27  -  Deforested  areas  covered  by  grass. 

Type  28  -  Recreation  areas  not  included  in  com- 
putations of  volume  or  allowable  cut. 

Type  29  -  Rock  outcrops  and  other  areas  where 
plant  products  cannot  be  produced. 

Type  30  -  Areas  covered  by  brush  that  will  not 
be  converted  to  forest. 

Type  31  -  Areas  with  grasses  and  other  herba- 
ceous species  that  can  be  managed  for 
forage  production. 

Type  32  -  Areas  of  other  ownership. 

Type  33  -  Areas  included  in  cleared  rights-of- 
way  along  roads,  power  lines,  etc. 

Types  34-35  -  Available  for  assignment. 

4.  Stand  ages  may  be  grouped  into  15  or 
fewer  10-year  age  classes.  This  classification  is 
in  addition  to,  but  correlated  with,  the  use  of 
age  in  the  forest  type  definitions. 

5.  Ten-foot  site  index  classes  from  10  to 
140  are  used  to  group  various  volume  and  area 
data  by  productivity  classes. 

6.  Provision  is  made  for  up  to  30  subcom- 
partments  per  compartment.  This  specification 
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need  be  considered  only  if  subroutine  MAPS  is 
the  source  of  area  data.  Following  long-estab- 
lished practice,  a  compartment  is  the  smallest 
permanent  unit  and  is  useful  for  record  keeping. 
A  subcompartment  is  a  temporary  subdivision 
equivalent  to  a  stand,  and  is  an  area  reasonably 
uniform  in  such  characteristics  as  site  quality, 
stand  structure,  and  treatment  (Chapman  1950). 


Main  Program 

The  main  program  calls  13  subroutines  to 
execute  five  sets  of  operations  in  the  following 
order: 

1.    Read  values  of  control  variables  and 
initialize  variables  applicable  to  the  working 
circle. 

Compute  area  totals  and  subtotals. 
Compute  optimum  growing  stocks  and 


2. 
3. 

yields. 

4.  Compute  present  and  future  volumes, 
periodic  yields,  and  other  values  useful  in 
timber  management. 

5.  Summarize  computations  and  print  a 
timber  management  plan. 

TEVAP2  provides  three  alternatives  for  the 
second  set  of  operations,  computation  of  areas. 
One  alternative  (MAPS)  requires  complete  forest 
subdivision  plus  compartment  maps  on  punched 
cards  or  magnetic  tape.  Another  (AREA2)  re- 
quires only  a  knowledge  of  total  area  of  the 
working  circle  and  of  each  nontimber  vegetative 
or  use  type.  The  third  alternative  (AREA1)  rep- 
resents one  intermediate  possibility,  knowledge 
of  type  areas  by  compartments  but  with  sub- 
compartments  not  designated  or  mapped.  Anew 
routine  may  replace  any  of  the  three  examples 
if  still  another  level  of  information  is  of 
interest. 

Ten  subroutines  called  by  the  main  program 
and  one  routine  called  by  another  subroutine 
write  one  or  more  pages  each.  Pages  are  identi- 
fied by  a  type  number  such  as  "page  type  3," 
as  shown  in  appendix  2.  Each  type  number, 
except  type  5,  designates  a  specific  page  layout. 
Pages  are  not  numbered  consecutively  because 
page  requirements  will  vary  with  size  of  the 
working  circle,  number  of  working  groups,  and 
area  alternative  used.  The  last  three  pages 
printed  are  designated  types  1,  2,  and  3  since 
many  managers  prefer  that  summary  pages  be 
the  initial  pages  of  a  plan.  Pages  of  Z-fold 
paper  can  be  separated  and  placed  in  proper 
numerical  order.  Temporary  storage  on  scratch 
tapes  can  be  used  to  reorder  pages  for  output 
onto  film. 


Subroutine  BASIS 

BASIS  reads  data  card  types  one  to  eight 
(p.  12  )  to  enter  values  of  control  variables  that 
do  not  change  during  program  execution.  With 
many  variables,  a  value  is  entered  for  each 
working  group  of  the  working  circle.  Some 
variables  quantify  management  decisions  and 
economic  limitations.  These  include  frequency 
and  intensity  of  thinning,  rotation  lengths,  re- 
generation system,  and  minimum  volumes  for 
commercial  operations.  Other  variables  describe 
regeneration  goals  in  terms  of  the  average  stand 
diameter  and  number  of  trees  per  acre  expected 
at  time  of  the  first  thinning.  Goals  are  described 
for  each  site  class  of  each  working  group. 
Since  the  number  of  site  classes  may  not  be 
known  before  the  inventory  records  are  proc- 
essed, it  is  necessary  to  include  data  cards  of 
types  6  and  7  for  every  10-foot  site  class  from 
the  lowest  to  be  managed  in  the  working  group 
up  to  at  least  the  highest  expected.  The  last 
type  6  card  for  each  working  group  is  blank  to 
stop  further  reading  for  that  working  group, 
unless  class  140  is  represented  by  data  cards. 
A  blank  type  6  card  is  not  followed  by  a  type 
7  card. 

Values  to  be  assigned  to  the  control  var- 
iables can  be  obtained  from  analysis  of  past 
records,  measurements  on  temporary  plots,  and 
from  computer  simulations  that  permit  exam- 
ination of  alternatives  (Myers  1971,  1973). 

Several  of  the  values  read  by  BASIS  are 
printed  on  page  type  4  to  provide  a  partial 
record  of  the  control  variables. 


Subroutine  INIT 

INIT  is  called  by  the  main  program  to 
assign  an  initial  value  of  zero  to  many  sub- 
scripted and  unsubscripted  variables.  These 
variables  are  later  used  to  describe  major  sub- 
divisions of  the  working  circle  and  usually  appear 
in  several  subroutines. 


Subroutine  SCAN 

SCAN  executes  the  first  of  two  readings  of 
the  inventory  records  on  type  9  data  cards  or 
card  images.  Totals  are  then  compiled  as  follows: 
(1)  number  of  records  by  block  and  type  (broad 
age  classes  within  a  working  group),  (2)  area  of 
each  cover  type  by  block  and  type,  (3)  non- 
stocked  areas  by  block  and  site  class,  (4)  area 
in  each  working  group  by  block  and  site  class, 
and  (5)  area,  by  block  and  type,  below  mini- 
mum site  class  for  management.  TEVAP2  will 
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handle  inventory  records  with  or  without  a 
known  area  in  acres,  or  a  mixture  of  the  two. 
If  the  area  field  of  a  record  reports  an  acreage, 
the  data  describe  a  stand  of  that  size.  If  no 
area  is  given,  the  data  apply  to  an  inventory 
plot.  SCAN  sums  reported  areas  by  each  combi- 
nation of  subdivisions  listed  above.  Otherwise, 
numbers  of  plots  of  each  classification  are  ob- 
tained. Numbers  of  plots  are  converted  to 
equivalent  areas  by  later  subroutines. 

SCAN  determines  the  number  of  site  index 
classes  represented  in  the  inventory  records  of 
each  working  group.  Number  of  site  classes 
controls  the  number  of  yield  tables  produced  by 
YIELD.  Subroutine  YIELD,  in  turn,  computes 
overwood  volumes  and  their  growth  rates,  if 
seed  tree  or  shelterwood  systems  are  used. 
These  values  are  thus  available  when  needed 
for  processing  of  the  inventory  records  by  sub- 
routine GOT. 


Subroutine  MAPS 

Subroutine  MAPS  is  one  of  three  alternative 
routines  used  to  compute  areas.  Items  needed 
are  (1)  complete  forest  subdivision  to  the  sub- 
compartment,  and  (2)  compartment  maps  that 
show  types  and  subcompartments.  The  sequence 
of  operations  is  explained  by  COMMENT  state- 
ments in  the  program  listing  (appendix  1). 

MAPS  accepts  map  data  in  the  form  of 
arrays  of  map  codes  on  punch  cards  or  tape. 
These  are  labeled  card  types  12,  13,  and  14  in 
the  list  of  contents  of  the  data  deck.  The  form 
of  input  is  specified  by  assignment  of  logical 
unit  3  to  the  card  reader  or  to  a  tape  drive. 
Array  sizes,  related  DIMENSION  statements,  the 
system  of  map  codes,  and  the  area  represented 
by  one  square  of  the  map  grid  may  be  changed 
as  desired. 

Coding  of  types  (KTYP)  and  subcompart- 
ments (KSUB)  follows  a  procedure  used  for 
demographic  and  other  studies.  In  the  example 
of  appendix  3,  each  section  of  640  acres  on  a 
forest  stand  map  was  subdivided  into  144  small 
squares.  Each  square  of  4.444  acres  (map  4 
inches  to  1  mile)  was  then  assigned  the  code 
number  of  the  predominant  type.  Portions  of 
sections  were  combined  to  reproduce  the  entire 
compartment.  Subcompartments  were  then 
designated  and  coded  on  the  basis  of  type  codes 
and  field  data.  In  the  forest  used  as  an 
example,  all  compartments  fit  into  squares  three 
sections  on  a  side,  and  could  be  represented  by 
arrays  of  36  by  36  2-digit  code  numbers.  One 
west-to-east  row  of  coding  occupied  the  first  72 
columns  of  a  punch  card.  As  many  cards  as 
necessary,  but  not  more  than  36,  were  punched 


to  complete  a  type  or  subcompartment  map  for 
a  compartment.  All  cards  were  run  through  an 
editing  program  to  locate  errors.  This  included 
a  check  that  each  subcompartment  contained 
only  one  type.  Corrected  maps  and  control  var- 
iables were  then  recorded  on  magnetic  tape, 
using  WRITE  statements  equivalent  to  the 
READ  statements  for  data  card  types  12, 
13,  and  14. 

The  mapping  procedure  used  is  intended  to 
illustrate  the  types  of  information  needed  and 
what  can  be  done  with  them.  In  actual  applica- 
tions, more  efficient  procedures  for  coding  and 
data  storage  may  be  available.  Hand  coding,  for 
example,  can  be  replaced  by  use  of  equipment 
that  reduces  map  areas  to  digitized  form.  Forest 
managers  can  obtain  procedural  guides  from  the 
many  applications  of  computer  graphics  to 
studies  of  urban  problems  and  land  use 
(Shahar  1970). 

MAPS  contains  the  only  machine-dependent 
operations  in  program  TEVAP2.  Map  code 
numerals  are  converted  to  display  code  so  blank 
areas  of  the  maps  will  not  be  filled  with  minus 
zeros.  Converted  numbers  are  then  printed  with 
R  format.  Program  statements  must  be  modified 
if  available  equipment  uses  a  different  display 
code  than  the  CDC  6400  used  to  test  the 
program. 

Two  pages,  types  5  and  6,  are  printed  by 
MAPS.  The  form  of  page  type  5  is  optional  and 
is  specified  by  the  value  read  initially  for  the 
variable  MAP  from  data  card  type  11.  Type  and 
subcompartment  maps  and  related  area  totals 
may  be  printed,  if  desired.  Two  pages  are  pro- 
duced per  compartment,  one  with  the  type  map 
and  one  with  the  subcompartment  map  (appen- 
dix 3).  Alternatively,  only  type  and  subcompart- 
ment areas  may  be  printed  (MAP  =  0).  Page 
type  6  reports  block  and  working  circle  totals, 
and  has  the  same  format  as  the  equivalent  page 
produced  by  AREA1  and  AREA2  (appendix  2). 

Type  and  subcompartment  boundaries  are 
continually  subject  to  change  according  to  the 
usual  rules  for  forest  subdivision  (Chapman 
1950).  The  map  file  must,  therefore,  be  updated 
prior  to  each  computer  run  with  subroutine 
MAPS.  Cultural  operations,  growth  into  the  next 
age  class,  and  fire  or  other  catastrophe  create 
need  for  recoding. 


Subroutine  AREA1 

Subroutine  AREA1  is  another  of  the  three 
alternative  routines  that  compute  areas.  It  is 
used  if  compartments  have  been  established  and 
if  type  areas  within  compartments  are  known. 
It  is  assumed  that  subcompartments  have  not 
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been  established,  or  that  compartment  maps  are 
not  available.  AREA1  illustrates  one  possible 
situation  in  the  range  of  degrees  of  administra- 
tive complexity  between  the  limits  served  by 
MAPS  and  AREA2. 

Type  areas  by  compartment  —  inputs  to  the 
subroutine  from  data  card  types  15  and  16  —  are 
summed  to  obtain  total  acres  by  working  group, 
by  block,  and  by  various  other  classifications  and 
combinations  thereof.  These  sums  are  stored  in 
unlabeled  COMMON  blocks  for  use  by  later 
routines.  COMMENT  statements  in  the  program 
listing,  appendix  1,  explain  the  operations 
involved. 

AREA1  prints  type  areas  of  each  compart- 
ment on  one  form  of  type  5  pages  (appendix  3) 
and  prints  a  type  6  page  to  report  block, 
working  group,  and  working  circle  totals.  The 
type  6  page  is  the  same  as  that  produced  by 
MAPS  and  AREA2  (appendix  2). 


Subroutine  AREA2 

Subroutine  AREA2  is  the  third  of  the 
routines  used  to  compute  areas  (appendix  1).  It 
is  used  if  compartments  have  not  been 
established,  or  if  type  areas  within  compartments 
are  not  known.  This  is  the  situation  assumed 
for  the  example  in  appendix  2.  Areas  of  blocks 
and  of  nonforest  types  are  read  from  data  card 
types  17  and  18. 

Type  areas  are  computed  from  total  produc- 
tion area,  including  nonstocked,  and  inventory 
information  already  compiled  by  subroutine 
SCAN.  Areas  of  nonforest  types  and  of 
unregulated  stands  in  recreation  areas  are  sub- 
tracted from  working  circle  area  to  get  the  area 
available  for  timber  management.  Stands  of 
known  area  were  assigned  to  the  appropriate 
block  and  type  by  SCAN  and  are  now  sub- 
tracted from  equivalent  total  areas.  Remainder 
of  the  production  area  is  allocated  to  forest 
types,  by  block,  in  proportion  to  the  number  of 
inventory  records  without  area  from  each  type. 

Type,  working  group,  and  block  areas  are 
recorded  on  pages  type  5  and  6  (appendix  2). 


Subroutine  LAND 

LAND  completes  the  processing  of  the  areas 
of  blocks,  working  groups,  and  types.  Area  of 
the  working  circle  not  in  subcompartments  of 
known  area  is  computed  by:  (1)  working  group 
and  block,  and  (2)  block  and  type.  Total  area  of 
all  timber  types,  excluding  nonstocked,  and  the 
area  of  nonstocked  land  in  each  block  are  then 
computed. 


Acreages  not  in  subcompartments  of  known 
area  and  record  counts  made  by  SCAN  are  used 
to  complete  the  computations.  Nonstocked  area 
is  determined  for  each  site  class  of  each  block. 1 
Areas  of  each  site  class  in  each  block  and  work- 
ing group  are  then  computed. 

LAND  prints  page  type  7  as  a  record,  by 
site  class  and  block,  of  the  nonstocked  area  and 
the  area  in  each  working  group. 

Finally,  the  deforested  area  is  allocated  to 
working  groups  by  blocks  and  site  classes.  Each 
working  group  is  assigned  a  percentage  of  the 
deforested  area  equal  to  the  proportion  of  the 
area  of  the  working  group  to  total  timbered 
area.  These  adjusted  areas  are  later  used  to 
compute  optimum  growing  stocks  and  allowable 
cuts. 


Subroutine  GOAL 

Subroutine  GOAL  computes  the  optimum1 
conditions  that  would  exist  if  all  stands  were 
thinned  on  schedule  to  a  specified  level,  with  a 
balanced  series  of  age  classes  already  estab- 
lished. Values  needed  to  make  these  computa- 
tions come  from  other  routines.  Management 
decisions  based  on  experience,  results  of  simula- 
tions, and  statements  of  policy  are  entered  by 
BASIS.  Acres  in  each  site  index  class  of  each 
working  group  are  computed  by  LAND  from 
area  data  and  the  inventory  file  read  by  SCAN. 

Most  computations  are  executed  once  for 
each  site  index  class  of  each  working  group. 
Major  operations,  in  the  order  performed  for  a 
site  class,  are  as  follows: 

1.  Subroutine  YIELD  is  called  to  compute 
and  print  a  yield  table. 

2.  Annual  volumes  per  acre,  computed  by 
YIELD,  are  printed  on  page  type  9.  These 
volumes,  in  board  feet  and  cubic  feet,  are  later 
summed  to  obtain  optimum  growing  stocks.  Re- 
cording the  volumes  on  page  type  9  preserves 
them  for  other  use  after  the  management  plan 
has  been  printed. 

3.  Mean  annual  increment  at  rotation  age 
is  computed  for  each  site  class  of  each  working 
group.  If  appropriate,  tree  felling  ages  do  not 
equal  rotation  ages  but  include  the  effects  of 
delays  in  obtaining  regeneration  and  the  period 
seed  trees  or  a  shelterwood  may  be  left  over 
the  new  crop.  Mean  annual  increments  com- 
puted from  yield  table  volumes  are  later  used 
as  "normal"  increments  in  application  of 
Heyer's  formula: 

E  =  wz+wy_Ny_ 

a 
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where:  WZ  is  mean  annual  increment,  WV  is 
actual  growing  stock,  NV  is  normal  growing 
stock,  and  a  is  the  adjustment  period  (Burger 
1920). 

4.  GOAL  calculates  for  each  10-year  age 
class  the  number  of  acres  and  the  growing 
stock  resulting  from  a  balanced  series  of  age 
classes.  The  results  are  printed  on  page  type  10. 
Area  regulation  is  assumed  for  these  computa- 
tions; annual  cut  for  a  site  class  of  a  working 
group  is  area  divided  by  rotation  length.  Acres 
with  stands  of  zero  age  are  listed  as  such  if 
delays  in  regeneration  are  expected  with  clear- 
cutting.  Volumes  of  seed  trees  or  shelterwood 
are  included  in  appropriate  age  class  totals  if 
these  regeneration  systems  are  used.  Tables  of 
pages  type  10  in  appendix  2  show  examples  of 
working  groups  managed  by  shelterwood  and 
clearcut  systems. 

5.  Annual  cuts  that  might  be  obtained  with 
a  balanced  series  of  age  classes  and  optimum 
stand  densities  are  computed  for  each  working 
group.  Volumes  from  intermediate,  regenera- 
tion, and  final  cuts  are  not  combined  into  work- 
ing group  totals  until  subroutine  SUMRY  is 
called.  Volumes  of  final  cuts  result  from  the 
final  removal  of  overwood  with  seed  tree  or 
shelterwood  systems.  All  other  cuts  for  pur- 
poses of  stand  regeneration,  including  clear- 
cutting,  are  classed  as  regeneration  cuts. 

After  processing  of  all  site  classes  is  com- 
pleted, GOAL  prints  a  record  of  optimum 
volumes  by  site  classes  on  page  type  11  and 
area  equivalents  in  standard  acres  on  page  type 
12.  One  page  of  each  type  is  produced  for  each 
working  group. 


Subroutine  YIELD 

YIELD  is  called  by  GOAL  to  compute  and 
print  a  yield  table  for  each  site  index  class  of 
each  working  group.  Prediction  equations  and 
other  relationships  needed  are  obtained  by  calls 
to  subroutines  CUTS  and  WORKGP.  Information 
used  is  described  in  the  section  headed  Basic 
Information  Used. 

A  yield  table  for  a  site  class  of  a  working 
group  incorporates  management  objectives  re- 
lating to  frequency  and  intensity  of  thinning 
and  other  matters.  It  serves  as  a  "normal"  or 
standard  for  stands  of  that  classification.  A  yield 
table  represents  the  goal  toward  which  opera- 
tions are  directed.  It  is  possible  to  produce 
many  yield  tables  for  a  site  class,  which  empha- 
sizes that  there  cannot  be  a  single  table  for 
managed  stands  of  a  species  and  site  class.  The 
term  "managed"  indicates  that  there  are  addi- 


tional variables  to  be  considered;  one  table  can- 
not account  for  all  the  possibilities.  Each  table 
is  useful  only  where  goals  and  management 
decisions  are  as  specified  for  its  computation. 

Details  of  field  work  and  computations 
needed  to  produce  yield  tables  have  been  pub- 
lished elsewhere  (Myers  1971,  Myers  et  al.  1971, 
Myers  et  al.  1972).  Subroutine  YIELD  is  most  of 
what  is  used  elsewhere  as  a  separate  program. 
The  yield  tables  are  printed  as  page  type  8. 

Volumes  per  acre  at  each  year  of  stand  age 
are  obtained  by  interpolation  between  yield 
table  values.  These  volumes,  in  board  feet  and 
cubic  feet,  are  printed  by  subroutine  GOAL. 

Additional  computations  are  performed  by 
YIELD  if  seed  tree  or  shelterwood  systems  are 
used  for  stand  regeneration.  Volumes  of  the 
residual  overwood  remaining  after  each  regen- 
eration cut,  in  board  feet  and  cubic  feet,  are 
obtained  from  the  yield  tables.  Growth  rate  of 
the  residual  overwood  during  the  period  it 
remains  standing  is  also  computed. 


Subroutine  CUTS 

Subroutine  CUTS  estimates  average  stand 
diameter  after  a  thinning  from  below  that 
includes  removal  of  occasional  larger  trees. 
Estimated  diameter  after  thinning  (DBHE)  is 
computed  from  diameter  before  thinning  and  the 
percentage  of  trees  to  be  retained.  Some  of  the 
relationships  used,  described  in  the  section 
headed  Basic  Information  Used,  are  contained 
in  the  species-specific  subroutines.  Successive 
percentages  of  retention  are  tested  until  d.b.h. 
after  thinning,  number  of  trees  retained,  and 
residual  basal  area  agree  with  the  growing  stock 
goal  specified  by  THIN(I)  or  DLEV(I).  Each  call 
by  YIELD  or  GOT  is  preceded  by  a  statement 
that  specifies  the  thinning  level  (REST)  to  be 
used. 

Growing  stock  levels  specify  the  basal  area 
to  be  left  after  thinning  in  relation  to  average 
stand  diameter  (Myers  1971).  Definition  of 
several  levels  provides  for  alternative  thinning 
intensities.  Each  level  is  named  by  the  basal 
area  to  be  left  when  average  diameter  is  10.0 
inches  or  larger.  Residual  basal  area  increases 
with  stand  diameter  until  the  diameter  reaches 
10.0  inches.  Thereafter,  basal  area  remains  con- 
stant for  any  one  stocking  level.  Subroutine 
CUTS  therefore  has  two  iterative  loops  so  a  full 
range  of  diameters,  with  both  variable  and  con- 
stant basal  area,  may  be  accommodated.  Limiting 
d.b.h.  for  selection  of  loops  is  10.0  inches  minus 
the  smallest  change  expected  from  usual  thin- 
ning practice. 


7 


Subroutine  WORKGP 

Subroutine  WORKGP  is  included  solely  to 
serve  as  a  switching  center.  Its  presence  permits 
TEVAP2  to  be  used  with  many  species  and 
working  groups,  and  for  all  species-specific  state- 
ments to  be  grouped  into  separate  subroutines 
for  convenient  program  modification.  WORKGP 
is  called  by  YIELD,  CUTS,  or  GOT,  as  needed. 
The  species  number  for  the  working  group, 
SPNUM(I),  is  used  by  WORKGP  to  call  the  ap- 
propriate set  of  species-specific  relationships. 
For  example,  if  SPNUM(I)  equals  one,  the  call 
will  be  to  subroutine  BHPP,  species-specific 
statements  for  Black  Hills  ponderosa  pine,  with 
the  program  organized  as  in  appendix  1. 

BASIS  reads  both  an  identifying  numberfor 
each  working  group  and  a  number  for  the 
species  in  the  working  group.  This  combination 
permits  flexibility  in  silvicultural  specifications 
for  working  groups  without  lengthening  the 
program.  For  example,  part  of  the  area  of 
a  given  species  may  be  managed  for  wood  fiber 
with  two-cut  shelterwood  and  a  short  rotation 
if  high  intensity  recreation  use  is  not  a  factor. 
Elsewhere,  the  species  could  be  managed  with 
three-cut  shelterwood  and  a  longer  rotation  to 
provide  pleasing  variety  in  the  landscape.  The 
identification  procedure  used  in  TEVAP2  keeps 
data  from  the  two  working  groups  separate  at 
all  times.  By  assigning  the  same  species  number 
to  both  working  groups,  however,  only  one 
species-specific  subroutine  is  needed. 

For  brevity,  the  listing  of  WORKGP  in  ap- 
pendix 2  calls  only  three  species-specific  sub- 
routines, and  has  dummy  statements  for  two 
more.  Any  or  all  of  these  five  may  be  replaced 
by  calls  to  subroutines  that  contain  statements 
for  other  species.  The  GO  TO  statement  may  be 
expanded  to  provide  for  the  addition  of  many 
more  species-specific  subroutines  to  TEVAP2. 
One  copy  of  TEVAP2,  stored  in  one  computer, 
can  thus  serve  all  the  working  groups  and 
species  of  an  entire  region. 


Subroutine  GOT 

Subroutine  GOT  processes  the  set  of  inven- 
tory records  (data  card  type  9)  to  obtain  present 
and  future  volumes  and  other  values.  Controls 
described  in  the  following  paragraphs  apply  to 
all  computations. 

Inventory  records  have  a  number  in  the 
ACRE  field  if  the  tree  and  site  index  values  are 
amounts  per  acre  averaged  over  a  specific  stand. 
The  ACRE  field  has  a  blank  or  zero  if  the 
record  is  for  a  sample  plot  that  describes  a  por- 
tion of  the  "unknown"  forest  area.  In  terms  of 
recent  National  Forest  inventories,  the  working 


circle  may  be  at  stage  one  (sampling  the  work- 
ing circle),  at  stage  two  (compartment  analysis), 
or  with  parts  of  the  working  circle  at  each 
level. 

Volume  computations  are  bypassed  for 
records  from:  (1)  deforested  areas,  (2)  areas 
below  minimum  site  index  for  management,  (3) 
trees  too  young  or  too  small  to  have  more  than 
a  few  merchantable  cubic  feet  per  acre,  and  (4) 
stands  below  minimum  age  for  inclusion  in 
growing  stock  totals.  With  these  exceptions, 
operations  performed  on  individual  inventory 
records  produce  the  following  values: 

1.  Present  basal  areas  and  volumes  per 
acre. 

2.  Basal  areas  and  volumes  at  the  end  of 
the  planning  period. 

3.  Growth  expected  during  the  next  plan- 
ning period,  in  cubic  feet  and  board  feet. 
Thinnings  are  computed  as  though  done  at  the 
beginning  and  end  of  the  period,  and  average 
growth  is  determined.  It  is  assumed  that  about 
equal  areas  will  be  thinned  each  year  of  the 
period. 

4.  Potential  yields  during  the  next  planning 
period  if  all  areas  are  treated  as  specified  by 
WORK  on  the  inventory  records.  Half  the  poten- 
tial growth  of  stands  to  be  cut  during  the 
period  is  added  to  potential  yields.  Volumes  are 
not  included  in  total  yields  if  they  are  less  than 
the  minimum  commercial  cuts  specified  by 
values  of  variables  COMBF(I)  and  COMCU(I). 

Two  variables  define  time  periods.  TIME  is 
the  number  of  years  in  a  planning  period.  It  is 
the  period  considered  in  assigning  the  WORK 
index  that  identifies  stands  in  need  of  treatment 
in  the  near  future.  Values  of  WORK  that  relate 
to  computations  in  GOT  are  defined  at  the  be- 
ginning of  appendix  1.  RINT(I)  is  the  number 
of  years  for  which  the  equations  predict  future 
d.b.h.,  height,  and  stand  density.  RINT(I)  may 
vary  among  working  groups.  TIME  must  be 
equal  to  or  a  multiple  of  RINT(I). 

Two  sets  of  volume  totals  are  maintained  for 
block,  age,  and  other  subdivisions  until  all  in- 
ventory records  are  processed.  One  set  reports 
volumes  of  stands  of  known  area.  Volumes  per 
acre  are  multiplied  by  area  to  obtain  stand  vol- 
umes for  addition  to  the  totals.  The  second  set 
reports  volumes  from  records  with  no  entry  for 
area  in  the  ACRE  field.  Volumes  per  acre  are 
summed  for  each  subdivision  specified  in  the 
program.  Final  volumes  are  totaled  by  sub- 
routine SUMS. 

Inventory  records  used  by  SCAN  and  GOT 
can  be  listed  according  to  the  work  to  be  per- 
formed (WORK)  and  the  fiscal  year  (FISC)  in 
which  it  is  scheduled.  This  listing  would  provide 
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information  on  where  stands  to  be  treated  during 
the  next  management  period  are  located.  Such  a 
list  is  not  made  by  TEVAP2,  but  could  be  pro- 
duced -  by  a  separate  run  of  the  inventory 
records.  Locations,  WORK  index,  and  fiscal  year 
appear  on  the  inventory  records  of  data  card 
type  9. 

Subroutine  SUMS 

Sums  completes  the  processing  of  volumes 
and  prints  a  record  of  the  computations.  For 
records  without  a  value  in  the  ACRE  field, 
SUMS  will:  (1)  compute  separately  for  each  block 
the  proportion  of  the  total  area  of  a  type  rep- 
resented by  one  sample  plot,  (2) use  this  area  to 
convert  the  sum  of  acre  volumes  to  actual  vol- 
umes of  that  portion  of  the  working  circle  with- 
out ACRE  records,  and  (3)  add  volume  totals, 
with  and  without  ACRE  records,  to  obtain  actual 
totals  for  various  subdivisions  of  the  working 
circle. 

Summaries  of  present  volumes  are  printed 
on  pages  type  13  and  14.  Working  circle  totals 
are  subdivided  by  blocks  and  timber  types.  Many 
computed  values  are  not  reported  at  this  point 
in  the  program,  but  are  printed  by  the  sub- 
routines described  below. 


Subroutine  SUMRY 

SUMRY  performs  several  operations: 

1.  Computes  differences  between  actual 
and  optimum  growing  stocks  for  each  age  class 
of  each  working  group. 

2.  Prints  page  type  3  as  a  record  of  actual 
and  optimum  growing  stocks  and  of  the  differ- 
ences between  them.  One  page  is  printed  for 
each  working  group. 

3.  Summarizes  the  number  of  acres  coded 
for  treatment  and  the  volumes  obtainable  from 
thinning,  regeneration  cutting,  and  other  oper- 
ations during  the  next  management  period. 

4.  Summarizes  the  annual  cuts  obtainable 
with  balanced  distribution  of  age  classes  (equal 
area  in  each  age  class)  and  optimum  growing 
stock.  Totals  are  obtained  for  each  working 
group  and  for  the  working  circle.  Totals  for  the 
working  circle  do  not  include  volumes  possible 
from  working  groups  named  DEFERRED. 

5.  Computes  the  annual  cuts  obtainable 
during  the  next  management  period  if  all  opera- 
tions called  for  by  the  WORK  index  are 
performed. 

6.  Computes  annual  cut  by  Heyer's 
formula.  Total  annual  cut  for  the  working  circle 
will  not  include  any  amount  contributed  by  any 
working  group  named  "DEFERRED."  It  is  thus 


possible  to  have  all  the  area  and  volume  infor- 
mation of  a  "deferred"  working  group  but  to 
omit  the  working  group  from  computations  .of 
allowable  cut. 


Subroutine  GIDE1 

Subroutine  GIDE1  prints  page  type  1  as  a 
summary  of  computations  made  by  the  entire 
program.  Major  items  of  page  type  1  are  the 
statements  of  the  allowable  cuts  computed  by 
SUMRY.  As  listed  in  appendix  1,  page  type  1 
contains  only  a  few  of  the  items  that  could  be 
assembled  on  summary  pages. 

TEVAP2  computes  and  reports  four  annual 
cuts,  as  examples  of  what  can  be  done  by  this 
or  similar  programs.  The  types  of  cut  are: 

1.  Idealized  cut  based  on  area  regulation 
and  a  balanced  series  of  age  classes.  Components 
of  this  cut  are  computed  by  GOAL  and  sum- 
marized by  SUMRY. 

2.  Potential  cut  if  all  operations  called  for 
by  the  WORK  index  are  performed,  without  re- 
gard to  other  restrictions.  Periodic  cuts  are  com- 
puted by  GOT  and  SUMS  and  converted  to 
annual  volumes  by  SUMRY. 

3.  Annual  cut  computed  with  the  modifica- 
tion of  Heyer's  formula  and  an  adjustment 
period  of  ADJ(I)  years.  Growing  stock  volumes 
computed  from  mean  annual  increment,  as  called 
for  by  the  formula  (Burger  1920),  are  not  used. 
Instead,  actual  and  optimum  growing  stocks 
computed  by  GOAL  and  SUMS  are  used  by 
SUMRY  to  compute  the  desired  values.  Initial 
term  of  the  formula  is  mean  annual  increment 
obtained  from  the  idealized  yield  tables  pro- 
duced by  YIELD. 

4.  Current  annual  cut  with  area  regulation. 

Convenient  comparisons  of  annual  cuts  pro- 
vided by  page  type  1  suggest  another  use  of 
programs  such  as  TEVAP2.  They  can  be  used 
as  tools  for  research  on  the  principles  of  allow- 
able cut  determination.  For  example,  various 
modifications  of  the  Heyer  formula  would  yield 
quite  dissimilar  results.  Periodic  annual  incre- 
ments, PAIBD(I)  and  PAICU(I),  are  computed 
by  SUMS  for  use  in  such  comparisons. 


Subroutine  GIDE2 

GIDE2  prints  page  type  2,  a  summary  of  the 
potential  work  load  and  yield  for  the  next 
management  period.  Separate  values  are  printed 
for  each  combination  of  block,  cover  type,  and 
operation  to  be  performed.  Bases  for  the  values 
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are  the  WORK  codes  in  the  inventory  records 
and  the  computations  performed  by  GOT  and 
SUMS.  If  all  entries  for  a  particular  operation 
would  be  zero,  no  record  of  that  type  of  opera- 
tion is  printed.  For  example,  no  inventory  record 
used  to  produce  appendix  2  has  a  WORK  code 
of  3.  No  statement  of  volumes  to  be  salvaged, 
therefore,  appears  on  page  type  2  of  any 
working  group.  Subroutine  GIDE2  does,  how- 
ever, contain  the  necessary  FORTRAN  state- 
ments to  print  a  salvage  record,  when  needed. 


Species-Specific  Subroutines 

The  listing  of  TEVAP2  in  appendix  1  con- 
tains three  species-specific  subroutines:  (1) 
BHPP  for  ponderosa  pine  in  the  Black  Hills  of 
South  Dakota  and  Wyoming,  (2)  LDGP  for  lodge- 
pole  pine  in  Colorado  and  Wyoming,  and  (3) 
SWPP  for  ponderosa  pine  in  Arizona  and  New 
Mexico.  As  explained  in  a  previous  section,  as 
many  more  species  as  desired  can  be  accom- 
modated. The  computed  GO  TO  in  subroutine 
WORKGP  must  be  expanded  as  far  as  necessary 
by  the  addition  of  more  species  numbers.  Each 
call  to  a  subroutine  is  labeled  with  the  appro- 
priate species  number,  SPNUM(I),  to  be  entered 
on  data  card  type  4.  Then,  a  new  subroutine  is 
added  to  TEVAP2  for  each  new  species,  corres- 
ponding to  the  calls  added  to  subroutine 
WORKGP.  There  will  be  no  need  for  changes  in 
subroutines  YIELD,  CUTS ,  or  GOT  if  the  arrange- 
ment of  one  of  the  listed  routines  is  followed. 
Relationships  needed  are  described  in  the  section 
headed  Basic  Information  Used. 

Operations  performed  by  the  12  sections  of 
a  species-specific  subroutine  are  listed  in  order, 
below.  Any  section  needed  during  program 
execution  is  specified  by  assigning  a  value  to 
the  switching  variable  IJ  just  before  calling 
subroutine  WORKGP.  A  computed  GO  TO  at 
the  beginning  of  each  species-specific  subroutine 
then  selects  the  appropriate  section.  Some  sec- 
tions compute  values  of  only  one  variable; 
others  compute  values  of  several  variables  from 
a  series  of  species-specific  statements. 


The  numbered  sections  compute: 

1.  Total  cubic  feet  per  acre  intheoverstory 
and  understory,  as  used  by  subroutine  GOT. 

2.  Factors  to  convert  total  cubic  feet  to 
other  units.  Factors  for  cubic  feet  to  a  4-inch 
top  and  for  board  feet  Scribner  Rule  are 
computed  by  the  subroutines  in  appendix  2.  This 
section  is  called  by  YIELD  and  GOT. 


3.  An  inventory  record  to  obtain  volume 
and  other  stand  measures  at  the  end  of  the  pro- 
jection period,  for  use  by  subroutine  GOT. 

4.  Future  volume  and  other  measures  of  an 
unthinned  understory,  from  all  appropriate  in- 
ventory records,  if  the  overstory  is  removed  at 
the  beginning  of  the  projection  period.  This 
section  is  called  from  GOT. 

5.  Average  stand  d.b.h.  after  thinning  to 
any  specified  residual  percentage  of  trees.  Thin- 
nings are  simulated  by  subroutine  CUTS,  which 
is  called  by  YIELD  and  GOT. 

6.  Merchantable  cubic  feet  obtainable  from 
tops  and  small  trees  as  a  byproduct  of  a  saw- 
log  cut,  for  subroutine  GOT. 

7.  Stand  volume  after  thinning  at  the  be- 
ginning of  the  management  period  and  after 
thinning  at  the  end  of  the  period.  These  values 
are  used  by  subroutine  GOT. 

8.  Volume  per  acre  and  other  measure- 
ments at  the  end  of  the  management  period,  of 
a  stand  thinned  at  the  start  of  the  period.  The 
section  is  called  from  GOT. 

9.  Average  height  of  dominant  and  co- 
dominant  trees  and  of  volume  in  cubic  feet, 
before  thinning,  for  YIELD. 

10.  Average  height  of  dominants  and  co- 
dominants  and  of  volume  in  cubic  feet,  after 
thinning.  This  computation  differs  from  section 
9  in  that  height  is  not  based  on  age  and  site 
index,  but  is  height  before  thinning  plus  an 
adjustment  to  show  the  effect  of  thinning.  The 
call  is  from  YIELD. 

11.  Average  stand  d.b.h.  at  the  end  of  the 
projection  period,  for  YIELD. 

12.  Mortality  during  the  projection  period 
as  a  percentage  of  the  number  of  live  trees  at 
the  beginning  of  the  period.  This  section  is 
called  by  YIELD. 

It  will  often  be  possible  to  use  single  equa- 
tions for  diameter  and  height  growth,  with  no 
distinction  between  "good"  stand  density  and  a 
wide  range  of  densities.  Single  equations  were 
not  used  for  the  species  represented  in  appendix 
1;  the  computations  in  TEVAP2  parallel  those  in 
other  available  management  tools  (Myers  1971, 
Myers  1973). 

Data  Deck  for  TEVAP2 

Eighteen  types  of  punch  cards  or  card 
images,  listed  below,  are  used  to  enter  initial 
values  of  variables  into  computer  memory.  In 
this  section,  the  word  "card"  may  refer  either 
to  a  standard  80-column  punch  card  or  to  a  card 
image  on  magnetic  tape.  Records  that  can  best 
be  handled  by  tape  are  identified  in  the  descrip- 
tions of  the  subroutines. 
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In  the  following  list,  type  numbers  with 
asterisks  designate  alternatives  (types  11  to  18, 
inclusive).  Only  two  to  four  of  these  types  need 
appear  in  the  data  deck  for  a  single  run  of  the 
program.  Basis  for  choice  is  the  area  subroutine 
(MAPS,  AREA1,  AREA2)  selected  for  call  by 
the  main  program.  All  cards  with  type  numbers 
not  followed  by  asterisks  must  be  included  in 
the  data  deck  so  READ  statements  will  be 
executed  properly.  Data  cards  are  read  in  order 
of  type  numbers  with  three  exceptions:  (1)  card 
type  9  is  read  twice,  (2)  as  many  sets  of  card 
types  4,  5,  6,  and  7  are  read  as  there  are 
working  groups  in  the  working  circle,  and  (3) 
unneeded  cards  of  optional  types  11  to  18  are 
omitted. 

Card  types  1  to  8,  inclusive  are  read  by 
BASIS.  Types  1,  3,  and  8  consist  of  one  card 
each;  type  2  consists  of  5  cards.  One  card  each 
of  types  4  and  5  must  be  provided  for  each 
working  group.  Up  to  14  cards  each  of  types  6 
and  7  must  be  added  to  the  data  deck  for  each 
working  group.  There  must  be  one  set  of  types 
6  and  7  for  each  10-foot  site  index  class  of  each 
working  group,  from  POOR(I)  to  at  least  the 
highest  site  class  expected.  The  last  card  of 
these  6-7  sets  must  be  a  blank  type  6  card  if 
not  all  site  classes  through  140  are  represented 
by  data  cards. 

With  two  working  groups,  the  sequence  of 
cards  read  by  BASIS  would  be: 

1.  One  card  type  1. 

2.  Five  cards  type  2. 

3.  One  card  type  3. 

4.  One  card  type  4  for  working  group  1. 

5.  One  card  type  5  for  working  group  1. 

6.  One  card  type  6  for  site  class  POOR(l)  of 
working  group  1. 

7.  One  card  type  7  for  site  class  POOR(l)  of 
working  group  1. 

8.  Alternate  single  cards  of  types  6  and  7  for 
additional  site  classes  of  working  group  1. 
Last  card  is  a  blank  type  6  if  not  all  site 
classes  through  140  are  represented. 

9.  One  card  type  4  for  working  group  2. 

10.  One  card  type  5  for  working  group  2. 

11.  One  card  type  6  for  site  class  POOR(2)  of 
working  group  2. 

12.  One  card  type  7  for  site  class  POOR(2)  of 
working  group  2. 


13.  Alternate  single  cards  of  types  6  and  7  for 
additional  site  classes  of  working  group  2. 
Last  card  is  a  blank  type  6  if  not  all  site 
classes  through  140  are  represented. 

14.  One  card  type  8. 

Subroutine  SCAN  reads  card  types  9  and  10 
after  BASIS  has  read  card  type  8.  Types  9  and 

10  will  be  read  again  later  in  the  program.  A 
REWIND  command  is  in  SCAN  for  use  if  the 
inventory  records  are  on  magnetic  tape. 

Subroutine  MAPS,  if  used,  reads  card  types 

11  to  14,  inclusive.  One  card  of  type  11  is 
needed  to  enter  values  that  apply  to  all  com- 
partments. A  set  of  cards  for  one  compartment 
consists  of  type  12  (one  card),  type  13  (up  to  36 
cards),  and  type  14  (up  to  36  cards).  These  sets 
are  read  in  the  sequence  12,  13,  14,  12,  13,  14, 
etc.  until  the  number  of  sets  or  compartments 
(NCMP)  on  card  type  3  has  been  processed. 

AREA1,  if  used,  reads  card  types  15  and  16. 
A  set  of  cards  for  one  compartment  consists  of 
one  card  of  type  15  and  the  four  cards  that 
make  up  type  16.  Sets  are  read  in  the  sequence 

15.  16,  15,  16,  etc.  until  the  number  of  sets  or 
compartments  (NCMP)  on  card  type  3  has  been 
processed. 

Subroutine  AREA2,  if  used,  reads  card  types 
17  and  18.  First,  one  card  of  type  17  with  one 
to  seven  block  areas  is  read.  Areas  are  in  the 
order:  block  1,  block  2,  etc.,  to  block  7.  One 
card  of  type  18  is  then  read  for  each  entry  on 
card  type  17.  Cards  of  type  18  must  be  arranged 
in  the  order  block  1,  block  2,  and  so  forth,  up 
to  the  highest  block  number  needed,  to  match 
the  order  in  which  block  areas  will  be  read 
from  card  type  17. 

GOT  reads  card  types  9  and  10,  the 
inventory  records  already  read  once  by  sub- 
routine SCAN.  The  number  of  cards  or  card 
images  of  type  9  is  determined  by  the  number 
of  inventory  plots  measured  and/or  by  the 
number  of  subcompartments  for  which  inventory 
data  are  known.  To  avoid  counting  of  inventory 
records  prior  to  program  execution,  a  record 
(type  10)  with  99  punched  for  block  number 
follows  the  type  9  records.  This  terminates  proc- 
essing of  the  inventory  and  moves  control  to 
another  subroutine.  Fields  for  KOMP,  ISUB,  and 
ACRE  on  an  inventory  record  will  be  blank 
when  the  forest  is  not  completely  subdivided  or 
subdivisions  are  not  used  for  the  record. 


Read 
by 


No.  of 
cards 


Variable 
name 


Columns 


Format 


Description  of  variable 


BASIS 


BASIS 


BASIS 


BASIS 


1  per 

working 

oroun 


OPTION 


ICT9 


FORET(I) 


TYPNM(I,J) 


NBK 


NCMP 


NWGP 


MIN 


BFMRCH 


TIME 


WGPNM (I , J) 


WGNUM (I ) 


THIN(I) 


DLEV(I) 


POOR(I) 


COMBF(I) 


1-5 


7-80 


1-80 


1-4 


5-£ 


9-12 


13-16 


17-20 


21-24 


1-12 


13-17 


18-21 


22-25 


26-29 


30-33 


A5 


II 


18A4,A2 
8(5A2) 

14 

14 

14 


14 


F4.2 


F4.2 


3A4 


F5.0 


F4.1 


F4.1 


F4.1 


F4.1 


Name  of  area  subroutine 
(MAPS ,  AREA1,  AREA2)  to 
be  used. 

Number  of  logical  unit 
for  input  of  inventory 
records . 

Name  of  the  forest  or 
working  circle . 

Brief  name  for  each 
vegetative  or  use  type, 
ten  characters  each. 

Number  of  blocks  in 
working  circle.  Must 
be  at  least  one. 

Number  of  compartments 
in  working  circle. 
Zero  with  ARE A 2 . 

Number  of  working  groups 
in  the  working  circle. 

Minimum  age  for  inclu- 
sion of  stand  volume  in 
growing  stock. 

Minimum  M  bd.  ft.  per 
acre  for  inclusion  in 
growing  stock. 

Number  of  years  in 
olanning  period. 

Name  of  working  group  I, 
preferably  from  a  stand- 
ard list  of  working 
groups . 

Standardized  number  of 
the  working  group  named 
above . 

Growing  stock  level  for 
initial  thinning  in  work- 
ing group  I. 

Growing  stock  level  for 
cuts  after  initial  thin- 
ning, working  group  I. 

Minimum  site  index  to  be 
managed  for  timber,  work- 
ing group  I. 

Minimum  commercial  cut  in 
M  bd.  ft.  per  acre,  work- 
ing group  I. 
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Card  Read  No.  of  Variable 
type   by  cards  name 


Columns 


Format 


Description  of  variable 


COMCU(I) 


ADJ(I) 


DELAY (I) 


RINT(I) 


CUCY(I) 


SPNUM(I) 


BASIS 


BASIS 


1  per 

working 

group 

up  to  14 
per  work- 
ing group 


WGPDES(I,J) 


REGN(I,1,J) 


VLLV(I,1,J) 


INVL(I,1,J) 


34-38 


39-42 


43-46 


47-50 


51-54 


55-58 


1-80 


1-4 


5-10 


11-13 


F5.2 


F4.1 


F4.1 


F4.1 


F4.1 


F4.0 


20A4 


F4.0 


F6.3 
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Minimum  commercial  cut  in 
hundreds  of  cu.  ft.  per 
acre ,  working  group  I . 

Length  of  period  of  ad- 
justment in  allowable 
cut  formula,  working 
group  I. 

Years  between  clearcut- 
ting,  if  used,  and  re- 
generation; working 
group  I . 

Number  of  years  for 
which  the  equations  pre- 
dict growth,  working 
group  I. 

Years  between  inter- 
mediate cuts,  working 
group  I. 

Number  assigned  to  a 
species  of  working 
group  I  so  appropriate 
set  of  species-specific 
relationships  can  be 
called .     One  of  the  num- 
bers in  computed  GO  TO 
of  SUBROUTINE  WORKGP . 

Statement  of  regenera- 
tion system,  etc.  used 
for  working  group  I . 

Stand  age  at  which  first 
regeneration  cut  will 
occur  in  working  group 
I,  site  class  J.  Never 
zero  or  blank,  as  this 
is  rotation  length  for 
clearcutting . 

Percentage  of  previous 
growing  stock  level  to 
be  left  at  first  regen- 
eration cut  in  working 
group  I,  site  class  J. 
Enter  zero  for  clear- 
cutting  . 

New  interval  between 
cuts  in  effect  after 
first  regeneration  cut 
in  working  group  I, 
site  class  J.  Enter 
zero  for  clearcutting. 
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Card 

type 


Read 


No.  of 
cards 


Variable 
name 


Columns 


REGN(I,2,J) 


BASIS 


up  to  14 
per  work- 
ing group 


REGN(I ,3, J) 


AGETH (I , J) 


DENTH(I, J) 


BASIS 


SCAN 
GOT 


1  per 
plot  or 
subcomp . 


DBHTH (I , J) 


DATE (I) 


IBK 


KOMP 


ISUB 


14-17 


VLLV(I,2,J)  18-23 


INVL(I,2,J)  24-26 


27-30 


1-5 


6-10 


11-15 


1-24 


1-2 


3-6 


7-9 


Format 


F4.0 


F6.3 


13 


F4.0 


F5.1 


F5.1 


F5.1 


6A4 


12 


14 


13 


Description  of  variable 


Stand  age  at  which 
second  regeneration  cut, 
if  any,  will  occur.  Re- 
moval of  seed  trees  or 
second  cut  of  shelter- 
wood.    Working  group  I, 
site  class  J. 

Percentage  of  previous 
growing  stock  level  to 
be  left  at  second  regen- 
eration cut,  working 
group  I,  site  class  J. 
Previous  level  includes 
effect  of  VLLV(I,1,J) . 
Enter  zero  if  no  third 
cut . 

New  interval  between 
cuts  in  effect  after 
second  regeneration  cut 
in  working  group  I,  site 
class  J.     Enter  zero  if 
no  third  cut. 

Stand  age  at  which  third 
regeneration  cut,  if  any, 
will  occur,  working  groupi 
I,  site  class  J.  Final 
cut  of  3-cut  shelterwood, 

Initial  age  in  yield 
table  for  working  group 
I,  site  class  J.    Age  at 
which  first  thinning  will 
be  done. 

Mumber  of  trees  per  acre 
expected  just  before 
thinning  at  age  AGETH 
(I, J).     Working  group  I, 
site  class  J. 

Average  stand  d.b.h.  ex- 
pected at  age  AGETH  (I,  J) 
with  density  DENTH(I ,  J) . • 
Working  group  I,  site 
class  J. 

Date  of  most  recent 
changes  in  data  files. 

Block  number.    Must  be 
at  least  one  block  in 
working  circle. 

Compartment  number. 
Enter  only  if  applicable. 

Subcompar tment  number. 
Enter  only  if  applicable 
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Card  Read  No.  of  Variable 

type  by  cards  name  Columns  Format  Description  of  variable 


QTR1 


QTR2 


10-12 


13-15 


A3 


A3 


Location  in  h.  \  of  pub- 
lic land  survey.  Re- 
place columns  10-26 
with  other  location  data, 
where  appropriate. 

Location  in  \  section  of 
public  land  survey.  See 
description  of  QTR1. 


SECT 


16-18 


A3 


Section  in  which  inven- 
tory plot  or  largest 
part  of  compartment  is 
located.     See  descrip- 
tion of  QTR1 . 


TOWN 


19-22 


A4 


Township  location  of  the 
section.     See  description 
of  QTR1. 


RANG 


23-26 


A4 


Range  location  of  the 
section.     See  descrip- 
tion of  QTR1. 


SITE 


27-29 


F3.0 


Average  site  index  of 
the  plot  or  subcompart- 
ment . 


STRY 


30 


F1.0 


Indicates  whether  type 
is  based  on  overstory 
(blank)  or  on  under- 
story   (1) . 


NTYP 


31-32 


12 


Vegetative  or  use  type 
of  the  plot  or  subcom- 
partment.  Number  from 
list  on  page  type  5  of 
output  in  Appendix  2. 


WORK 


33 


F1.0 


Code  number  of  treat- 
ment needed  during  plan- 
ning period,  as  shown 
in  definitions  of  vari- 
ables in  Appendix  1. 


FISC 


DBH(l) 


34-37 


38-40 


F4.0 


F3.1 


Year  in  which  treatment 
coded  in  WORK  field  is 
to  be  accomplished.  For 
use  in  listing  work  loads 
with  other  computer  pro- 
grams . 

Average  d.b.h.  of  the 
overstory  trees. 


HT(1) 


DEN  (1) 


41-43 


44-48 


F3.0 


F5.0 


Average  height  of  domi- 
nant and  codominant 
overstory  trees. 

Number  of  overstory 
trees  per  acre. 
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Card  Read  No.  of  Variable 

type   by  cards  name   Columns    Format  Description  of  variable 


Car 

22 


AGE ( 1 ) 


49-51 


F3.0 


Average  age  of  over- 
story  trees. 


DMR(l) 
DBH(2) 
HT(2) 

DEN  (2) 
AGE (2) 
DMR ( 2 ) 
ACRE 


52-53 


54-56 


57-59 


60-64 


65-67 


68-69 


70-74 


F2.1 


F3.1 


F3.0 


F5.0 


F3.0 


F2  .1 


F5.1 


Dwarf  mistletoe  rating 
of  overstory  trees. 

Average  d.b.h.  of  the 
understory  trees. 

Average  height  of 
potential  dominants 
and  codominants  in  the 
understory . 

Number  of  understory 
trees  per  acre. 

Average  age  of  under- 
story trees. 

Dwarf  mistletoe  rating 
of  the  understory  trees, 

Area  of  the  subcompart- 
ment  described.  Leave 
blank  if  data  refer  to 
plot,  not  stand,  meas- 
urements . 


10 


11* 


SCAN 
GOT 

MAPS 


12* 


MAPS 


1  Der 
comp . 


13* 


MAPS 


NROW 
per 
corrro . 


WHEN  75-78  F4.0  Year  of  first  growing 

season  after  inventory 
record  was  made.  For 
use  in  updating  with 
PROGRAM  GROW. 

(Punch  99  in  first  two  columns  to  stop  reading  of  tyne  9  records.) 


MAP 


SCALE 


KBK 


ko:ip 


NROW 


KTYP(I ,J) 


1-4 


5-10 


1-4 


5-f 


9-12 


1-72 


14 


F6  .4 


14 


14 


14 


3612 


Index  to  print   (1)  or  to 
omit  (0)  compartment 
maps  . 

Acres  represented  by  one 
code  number  on  a  compart- 
ment man . 

Number  of  block  in  which 
the  compartment  is 
located . 

Number  of  the  compart- 
ment being  processed. 

Number  of  rows  of  map 
symbols  in  the  compart- 
ment map . 

Type  numbers  in  compart- 
ment type  map. 
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Card 

14* 


15* 


Read 
by 


No.  of 
cards 


Variable 
name 


Columns 


16* 

17* 
13* 


MAPS 


AREA1 


AREA1 

AREA2 
AREA2 


NROW 
ner 
comp . 

1  per 
conn  . 


4  ner 
comp . 


1  ner 
block 


KSUB(T ,J) 

KM 

KOMP 

ARETY(I) 

ARBK(I) 
SARETY (I , J) 


1-72 

1-4 

5-3 
1-30 

1-56 
1-64 


_Format_ 
3612 

14 

14 

10F3.1 

7F8.1 
8F8.1 


Description  of  variable 

Subcompartment  numbers 
in  compartment  map  of 
the  subcompartments . 

Ilumber  of  block  in  which 
the  compartment  is 
located . 

Number  of  the  compart- 
ment being  processed. 

Acres  of  type  I  in  the 
compartment  being  proc- 
essed 

Acres  in  block  I. 

Acres  of  nontimber 
tvne  J  in  block  I . 


Basic  Information  Used 

Tabulations  and  explanations  that  follow 
describe  the  relationships  to  be  determined 
locally  to  adapt  TEVAP2  to  other  species  or 
conditions.  The  first  relationships  appear  as 
FORTRAN  statements  in  subroutines  CUTS  and 

i  GOT;  the  remainder  are  part  of  the  species- 
specific  subroutines.  Descriptions  of  the  rela- 
tionships include  explanations  of  the  program 
variables  and  related  FORTRAN  statements  in- 
volved. Tabulations  include  only  enough  entries 
to  explain  the  nature  of  the  information  needed; 
they  do  not  indicate    sample  sizes  or  desirable 

i  ranges  of  data.  Methods  used  to  determine  the 
relationships  are  found  in  standard  mensuration 
texts  and  elsewhere  (Myers  1971). 

1.    Stand  density  after  partial  cutting.  — 

Some  relationships  are  based  on  the  basal  area 
j  to  be  left  after  cutting  for  various  average 
stand  diameters.  These  relationships  control 
amount  of  the  reserve  stand  left  after  inter- 
mediate or  partial  regeneration  cutting,  once 
THIN(I)  and  DLEV(I)  have  been  specified  by 
the  program  user.  Data  needed  take  the  following 
I  form: 


Average  stand  Basal  Average  stand  Basal 

d.b.h.  after  area  d.b.h.  after  area 

cutting  per  cutting  per 

(inches)  acre  (inches)  acre 


Sq.  Ft. 

Sq.  Ft. 

2.0 

12.1 

6.4 

60.3 

2.4 

16.7 

6.8 

63.8 

2.8 

21.3 

7.2 

67.0 

3.2 

26.0 

7.6 

69.9 

3.6 

30.6 

8.0 

72.5 

4.0 

35.2 

8.4 

74.8 

4.4 

39.9 

8.8 

76.7 

4.8 

44.5 

9.2 

78.2 

5.2 

48.8 

9.6 

79.3 

5.6 

52.8 

10.0+ 

80.0 

6.0 

56.6 

Values  in  this  tabulation  represent  a  few 
points  on  one  of  a  family  of  curves  (Myers 
1971).  Reserve  basal  area  increases  with  average 
stand  d.b.h.  until  10.0  inches  is  reached.  There- 
after, reserve  basal  area  remains  constant  for 
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any  one  growing  stock  level.  In  the  tabulation, 
constant  basal  area  is  80.0  square  feet  per  acre, 
and  the  values  represent  growing  stock  level  80. 
Other  levels  are  named  similarly.  Thus,  if 
THIN(I)  or  DLEV(I)  is  100,  basal  area  at  any 
d.b.h.  below  10.0  inches  is  the  basal  area  for 
level  80  multiplied  by  100/80.  If  d.b.h.  is  greater 
than  10.0  inches,  retained  basal  areaisDLEV(I). 

Several  statements  in  subroutine  CUTS  are 
derived  from  basal  area  values  for  level  80. 
Basal  areas  computed  by  them  are  multiplied  by 
terms  including  THIN(I)  or  DLEV(I),  redefined 
as  REST,  to  provide  for  a  range  of  possible 
growing  stock  levels.  Variables  defined  by  the 
statements  and  their  use,  are: 

a.  DBHP  — to  find  a  d.b.h.  less  than  10.0 
inches  when  basal  area  is  known.  Three  equa- 
tions for  DBHP  are  used  to  simplify  representa- 
tion of  the  nonlinear  relationship  between 
d.b.h.  and  basal  area. 

b.  BREAK  and  BUST  — to  compute  values 
of  basal  area  that  are  the  upper  limits  of  appli- 
cability of  the  first  two  equations  for  DBHP. 

c.  SQFT  —  to  find  basal  area  when  d.b.h.  is 
known.  Two  equations  represent  the  nonlinear 
relationship  for  d.b.h.  less  than  10.0  inches. 

Two  equations  used  to  compute  LEVL  in 
subroutine  GOT  include  the  equations  for  SQFT. 
They  give  the  equivalent  growing  stock  level 
when  average  d.b.h.  and  basal  area  are  known. 

2.  Total  cubic  feet  per  acre.  —  Stand 
volumes  in  total  cubic  feet  are  computed  with 
stand  volume  equations.  As  listed  in  appendix 
1,  cubic  volume  is  determined  from:  (1)  basal 
area  per  acre,  (2)  average  height  of  dominant 
and  codominant  trees,  (3)  average  stand  d.b.h., 
and  (4)  number  of  trees  per  acre. 

Plot  tallies  of  tree  diameters  and  heights  are 
converted  to  volumes  per  acre  in  total  cubic 
feet  and  to  basal  areas  and  other  values  used 
as  independent  variables.  Stand  volume  equa- 
tions are  then  obtained  by  regression  analysis. 
Total  cubic  volume  per  acre  from  ground  line 
to  tip  of  all  trees  more  than  4.5  feet  tall  is  the 
only  volume  computed  directly  by  TEVAP2. 
Volumes  in  other  units  are  obtained  by  use  of 
conversion  factors. 

Values  of  six  variables  in  each  species- 
specific  subroutine  are  obtained  from  the  same 
regression  coefficients:  (1)  TOT(IK)  in  section 
1,  (2)  FVL(I)  in  section  3  and  FVL(l)  in  section 
8,  (3)  VLUS  in  section  4,  (4)  TVL(IK)  in  sec- 
tion 7,  (5)  TOTO  in  section  9,  and  (6)  TOTT  in 
section  10.  Two  statements  are  used  for  each 
variable  because  the  relationship  is  not  linear 
over  the  ranges  of  D2  H  that  may  appear  in 
computations  of  inventory  data. 


3.  Conversion  of  total  cubic  feet  to  other 
units. —Volumes  are  first  computed  in  total 
cubic  feet  per  acre,  as  described  above.  They 
are  then  converted  to  other  units  with  factors 
computed  by  section  2  of  each  species-specific 
subroutine.  The  second  column,  below,  shows 
some  of  the  ratios  used  to  obtain  equations  for 
FCTR(I)  in  subroutine  BHPP.  The  third  column 
shows  ratios  used  to  compute  PROD(I)  for 
BHPP. 


Average  Merchantable  cubic  Board  feet 
stand  d.b.h.  feet  -5-  total  -h  total 

(Inches)  cubic  feet  cubic  feet 


5.1  0.355 

6.0  .552 
6.9  .725 

8.3  .860  0.99 

9.1  .901  1.55 

10.3  .931  2.38 
19.0  .962  5.33 

23.4  .969  5.88 


Utilization  standards  are  given  in  COMMENT 
statements  of  section  2  of  each  species-specific 
subroutine.  Other  conversions  could  be  added, 
such  as  those  based  on  tree  contents  in  square 
feet  of  veneer  or  in  pounds  of  wood  (Myers 
1960). 

Volume  or  weight  per  acre  of  numerous  plots 
are  determined  in  units  of  interest  and  in  total 
cubic  feet.  Selection  of  appropriate  units  in- 
cludes choice  of  minimum  merchantable  top 
diameter.  The  quantity  of  each  unit  per  total 
cubic  foot  is  determined  separately  for  each  plot. 
Regression  analysis  is  used  to  obtain  coefficients 
for  computing  the  factors  when  average  stand 
diameter  and  basal  area  are  known.  Minimum 
average  diameters  are  specified  for  each  factor 
in  TEVAP2.  Variability  is  so  great  with  small 
diameters  that  the  results  serve  no  useful 
purpose. 

Each  call  to  section  2  of  a  species-specific 
subroutine  is  preceded  by  specification  of  the 
number  of  values  of  each  factor  needed  and  by 
the  average  diameter  to  be  used.  It  is  thus 
possible  to  keep  separate  such  paired  require- 
ments as  present  and  future  stand  and  overstory 
and  understory. 

4.  Future  average  stand  d.b.h.  with  wide 
range  of  stand  density.  —  Regression  analysis  is 
performed  on  stand  data  obtained  on  temporary 
and/or  permanent  plots  that  cover  a  wide  range 
of  stand  densities,  site  indexes,  etc.  Average 
stand  d.b.h.  in  10  years  is  expressed  as  a 
function  of  several  readily  measured  stand 
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variables.  For  the  species  named  in  appendix  1, 
the  following  were  significant  independent 
variables:  present  average  d.b.h.,  average  height 
of  dominants  and  codominants,  basal  area,  and 
site  index. 

The  relationship  appears  in  two  places  in 
each  species-specific  subroutine:  (1)  FDM(I)  in 
section  3,  and  (2)  DMUS  in  section  4.  Else- 
where, future  average  d.b.h.  is  estimated  with 
an  equation  developed  from  data  from  stands  at 
or  near  densities  that  could  be  objectives  of 
management. 

5.  Noncatastrophic  mortality.  —  Normal 
mortality  may  be  important  in  unthinned  stands, 
but  minor  and  erratic  in  thinned  stands.  Such 
was  the  case  with  the  species  represented  by 
subroutines  in  appendix  1.  No  pattern  of  mor- 
tality could  be  found  in  stands  with  an  average 
d.b.h.  of  10.0  inches  or  larger. 

Data  for  the  mortality  equation  come  from 
two  sources: 

a.  Permanent  plots  that  have  been 
measured  at  least  as  frequently  as  the  prediction 
period  to  be  used. 

b.  Temporary  plots  that  have  not  been 
partially  cut  for  a  number  of  years  equal  to  the 
prediction  period.  Trees  dead  at  time  of  treat- 
ment must  have  been  felled  or  marked  at  that 
time. 

For  species  used  as  examples,  percentage 
reduction  in  number  of  trees  was  expressed  as 
a  function  of  average  d.b.h.  and  basal  area, 
both  at  the  beginning  of  the  period. 

Future  stand  density  is  computed  as  FDN(I) 
in  section  3,  as  FDN(l)  in  section  8,  as  DENO 
in  section  12,  and  as  DNUS  in  section  4  of  each 
species-specific  subroutine.  Definitions  and 
values  of  the  variables  change  during  record 
processing.  The  first  computation,  the  equation 
that  varies  by  species,  produces  percentage 
mortality  in  10  years,  expressed  as  a  decimal. 
The  10-year  period  equals  the  projection  period 
of  related  equations  that  estimate  future 
diameter  and  height.  Later  FDN(I),  DNUS,  or 
DENO  is  redefined  as  future  number  of  trees 
and  is  computed  from  the  original  value  of 
FDN(I),  DNUS,  or  DENO. 

6.  Tree  heights  with  wide  range  of  stand 
density. —  Future  average  heights  of  dominant 
and  codominant  trees,  without  restrictions  on 
stand  density,  are  computed  as  FHT(I)  in  sec- 
tion 3,  as  FHT(l)  in  section  8,  and  as  HTUS  by 
section  4  of  each  species-specific  subroutine. 
Heights  in  10  years  are  estimated  from  present 
average  height,  stand  age,  site  index,  and  basal 


area.  Data  needed  for  regression  analysis  may 
be  obtained  from  remeasurements  of  permanent 
plots  or  from  borings  and  ring  counts  on  tem- 
porary plots. 

7.  Increase  in  average  d.b.h.  from  cutting. 

—  Effect  of  partial  regeneration  cutting  or  thin- 
ning from  below  on  average  stand  d.b.h.  is 
simulated  by  subroutine  CUTS.  Thinning  from 
below  includes  the  removal  of  occasional  larger 
trees,  as  occurs  in  actual  practice.  Statements 
for  DBHE  and  PDBHE,  which  may  vary  by 
species,  appear  in  section  5  of  each  species- 
specific  subroutine.  DBHE  represents  the 
estimated  d.b.h.  after  thinning  and  is  computed 
directly  if  at  least  50  percent  of  the  trees  are  to 
be  retained.  The  relationship  is  highly  nonlinear 
if  fewer  trees  are  retained,  so  PDBHE  is  then 
computed  and  its  antilogarithm  becomes  DBHE. 

Change  in  average  diameter  can  be  estimated 
from  data  obtained  during  repeated  trial  marking 
of  plots  that  cover  a  range  of  tree  sizes  and 
densities.  By  multiple  regression  analysis,  equa- 
tions are  obtained  that  estimate  diameter  after 
cutting  from  diameter  before  cutting  and  the 
percentage  of  trees  retained. 

A  computer  program  that  simulates  partial 
cutting,  computes  the  values  needed  for  regres- 
sion analysis,  and  punches  the  data  cards  is 
described  elsewhere  (Myers  1971). 

8.  Cubic  feet  from  saw-log  cut. —  An  equa- 
tion for  ADD  in  section  6  of  each  species- 
specific  subroutine  estimates  the  merchantable 
cubic  feet  obtainable  as  a  byproduct  of  saw-log 
cuts.  To  obtain  the  basic  data,  plots  representing 
a  wide  range  of  stand  conditions  are  measured. 
Cubic-  and  board-foot  volumes  of  all  trees  above 
minimum  size  for  saw  logs  are  summed  to  ob- 
tain equivalent  volumes  per  acre  for  each  plot. 
The  dependent  variable  for  regression  analysis  is 
merchantable  cubic  feet  per  thousand  board  feet. 
Independent  variables  are  average  d.b.h.  and 
thousands  of  board  feet  per  acre.  Whenever  a 
cut  is  computed  by  subroutine  GOT,  the  state- 
ment for  ADD  is  used  to  compute  the  cubic 
volume  contained  in  saw  logs.  ADD  is  then  re- 
defined to  equal  the  difference  between  the 
total  cubic  volume  of  the  cut  and  the  cubic 
volume  of  saw  logs.  The  new  value  for  ADD  is 
treated  as  a  commercial  yield  if  it  is  equal  to  or 
larger  than  the  minimum  commercial  volume 
entered  as  COMCU(I). 

9.  Tree  heights  with  density  near  manage- 
ment goals. —  Average  height  of  dominant  and 
codominant  trees,  where  height  growth  is  not 
reduced  by  high  stand  density,  is  computed  from 
data  of  the  form: 
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The  relationships  are  expressed  by  state- 
ments for  HTSO  in  the  ninth  section  of  each 
species-specific  subroutine.  If  data  from  site 
index  curves  are  used,  the  crown  classes 
described  must  be  the  same  as  those  used  to 
develop  the  site  curves.  The  crown  classes  must 
be  the  same  as  those  used  in  the  equations  for 
total  cubic  feet,  described  in  item  2,  above. 

10.  Increase  in  average  height  from  thin- 
ning. —  Increases  in  average  height  of  dominant 
and  codominant  trees  due  to  partial  cutting  are 
estimated  the  same  way  as  increases  in  average 
d.b.h.  Results  of  repeated  trial  markings  on  plots 
covering  a  range  of  average  diameters  and 
densities  provide  the  data  needed  for  regression 
analysis.  The  increase,  in  feet,  is  correlated  with 
the  percentage  of  trees  retained. 

The  relationship  appears  as  the  statement 
for  ADDHT  in  section  10  of  each  species-specific 
subroutine,  and  as  part  of  the  statements  for 
HT(KI)  in  section  7  and  for  HT(1)  in  section  8. 
At  each  cutting,  the  amount  of  the  increase  is 
added  to  height  before  thinning  to  obtain  height 
after  thinning.  In  section  10,  it  is  also  added  to 
a  cumulative  sum  of  changes,  HTCUM,  so  com- 
puted heights  before  thinning  will  show  the 
effects  of  past  treatment  as  well  as  of  age  and 
site  quality. 

As  with  change  in  diameter,  it  is  possible 
to  simulate  thinnings  on  a  computer  to  increase 
the  number  of  combinations  of  variables  avail- 
able for  regression  (Myers  1971). 

11.  Future  average  stand  d.b.h.  with  density 
near  management  goals.  —  Diameter  in  10  years 
is  estimated  from  present  average  d.b.h.,  site 
index,  and  present  basal  area.  Future  diameters 
are  computed  as  FDM(l)  in  section  8  and  as 
DBHO  in  section  11  of  each  species-specific  sub- 
routine. Data  needed  to  obtain  the  prediction 
equations  by  regression  analysis  are  gathered 
on  temporary  and/or  permanent  plots  with 
stands  within  the  desired  range  of  densities 
(Myers  1971).  This  prediction  equation  is  used 
in  TEVAP2  wherever  diameter  growth  in 
recently  thinned  stands  is  to  be  computed. 

12.  Effects  of  dwarf  mistletoe.  —  Subroutine 
LDGP  and  SWPP  give  examples  of  how  the 
effects  of  a  damaging  agent  may  be  included  in 
growth  computations.  In  these  cases,  growth 


reduction  is  caused  by  dwarf  mistletoe, 
Arceuthobium  americanum  Nutt.  ex  Engelm.  or 
A.  vaginatum  subsp.  cryptopodum  (Engelm.) 
Hawks,  and  Wiens.  Three  statements  in  each 
subroutine  contain  species-specific  relationships 
involving  the  amount  of  dwarf  mistletoe  present 
and  its  effect  on  growth.  They  are:  (1)  the  last 
half  of  the  statement  for  TEM,  (2)  the  state- 
ments for  DIE,  and  (3)  the  statement  for  PCT. 
Each  of  the  three  statements  appears  in  sections 
3,  4,  and  8  of  subroutines  LDGP  and  SWPP.  In 
each  case,  the  measure  of  dwarf  mistletoe  present 
is  the  dwarf  mistletoe  rating,  DMR  (Hawksworth 
1961). 

The  last  half  of  the  statement  for  TEM 
gives  the  percentages  of  the  10-year  increase  in 
average  d.b.h.  of  healthy  stands  that  will  occur 
with  varying  amounts  of  dwarf  mistletoe.  The 
statements  for  DIE  give  the  percentage  of  live 
trees  at  start  of  the  period  that  will  die  during 
the  period.  This  percentage  will  be  used  instead 
of  the  percentage  from  FDN(I),  if  larger. 
FDN(I)  is  based  on  noncatastrophic  mortality 
in  healthy  stands  and  will  be  less  than  DIE 
unless  the  dwarf  mistletoe  rating  is  so  low  that 
FDN(I)  and  DIE  are  equal.  PCT  is  the  percent- 
age of  the  periodic  height  growth  of  healthy 
stands  that  will  occur  in  stands  with  various 
degrees  of  infestation.  Additional  information 
on  these  relationships  is  available  elsewhere 
(Myers  et  al.  1971,  Myers  et  al.  1972,  Hawks- 
worth  and  Myers  1973). 
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APPENDIX  1 


Listing  of  Program  TEVAP2 


PROGRAM  TEVAP2 

1( INPUT, OUTPUT, TAPE5=INPUT,TAPE6=0UTPUT,TAPE^=TAPE5,TAPE3=TAPE5) 

DEFINITIONS   OF  VARIABLES. 

ABFAGIl.J)    =  ACTUAL  GROWING  STOCK    IN  M  BO.   FT.   FOR  WORKING  GROUP  I 

AND  AGE  CLASS  J. 
ACBAR(I)    =  DEFORESTED  ACRES    IN  BLOCK  I. 

ACFNLII.J.K)   =   ACRES   TO  RECEIVE  FINAL   CUT  DURING  NEXT  PERIOD  - 

WORKING  GROUP   I,   BLOCK  J,   AGE  CLASS  K. 
ACINT(I)    =   ACRES   RECEIVING    INTERMEDIATE   CUT   ANNUALLY    IN  BALANCED 

FOREST i   WORKING  GROUP  I. 
ACRE  =  AREA  OF   THE   STAND  DESCRIBED  BY  THE   INVENTORY  RECORD,  IF 

KNOWN .   BLANK   INDICATES  RECORD  APPLIES  TO  SAMPLE  PLOT. 
ACRGNII.J.K]    =  ACRES  TO  RECEIVE  REGENERATION  CUT  DURING  NEXT 

PERIOD  -   WORKING  GROUP    I,    BLOCK   J,    AGE   CLASS  K. 
ACSIII.J.KI    =  ACRES  OF  WORKING  GROUP   I,   BLOCK  J,    SITE   CL&SS  K. 
ACSPI1.J)    =  ACRES  OF   WORKING  GROJP   I    IN  BLOCK  J. 
ADD  =  CUBIC  FEET   PROOuCEO  AS   BYPRODUCT  OF   SAWLOG  CUTS. 
ADDHT   =    INCREASE   IN  AVERAGE  HEIGHT  FROM  THINNING  FROM  BELOW. 
ADJtl)    =   YEARS   IN   ADJUSTMENT   PERIOD,    WDRKING   GROUP  I. 
AGE  (  I )    =  AVERAGE   AGE  OF  OVERS  TOR Y ( I  =  1 )   OR   UNDERSTORY ( I =2  I . 
AGEO  =  STAND  AGE  AT   EACH  STEP  OF  YIELD  TABLE. 
AGE  T  H  (  I  , J )    =    AGE    AT    INITIAL    THINNING,    WORKING   GROUP  I, 

SITE  CLASS  J. 

ALLCFII.J)   =   GROWING  STOCK  GOAL   FOR   WORKING  GROUP    I,   SITE   CLASS  J. 

CUBIC  FEET  OF  ENTIRE   STANDS  TD  ROTATION  AGE. 
ALOWC(I)    =   ALLOWABLE   ANNUAL   CUT    IN   HUNDREDS   OF   CU.    FT.,    BASED  ON 

ACTUAL  AND  DESIRED  GROWING  STOCKS   OF   WORKING  GROUP  I. 
AlWBF(I)    =   ALLOWABLE    ANNUAL   CUT    IN   M   BD.    FT.,    BASED   ON   ACTUAL  AND 

DESIRED  GROWING  STOCKS   OF  WORKING  GROUP  I. 
AMCAGU.JI    =   ACTUAL   GROWING   STOCK    IN   HUNDREDS   OF   CU.    FT.  FOR 

WORKING  GROUP   I    AND  AGE  CLASS  J. 
ANBDF(I)    =   M   BD.    FT.    PER   ACRE   AT    END   OF   EACH  YEA*. 
ANCUTII.JI    =    AREA   /   ROTATION   FOR   WORKING   GROUP    I,    SITE   CLASS  J. 
ANCUVII)    =  CU.   FT.   STANDING  PER   ACRE   AT   END  OF   EACH  YEAR. 
ANNAC    =   TOTAL   ACRES   TO  BE   TREATED   ANNUALLY   DURING   NEXT  PERIOD. 
ANNBD  =   EXPECTED   TOTAL   ANNUAL   Y I  £  L  D   DURING  NEXT   PERIOD  IN 

M  BD.  FT. 

ANNCU  =  EXPECTED  TOTAL  ANNUAL  YIELD  DURING  NEXT  PERI0O  IN  CU.  FT. 
ARB K  (  I  J    =   AREA   OF   BLnCK  I. 

AREA(I.J)   =   AREA  OF   SITE   CLASS  J   OCCUPIED  BY  WORKING  GROUP  I. 

INCLUDES  SHARE  OF  DEFORESTED  AREA. 
ARECP   =    TOTAL   AREA   OF  COMPARTMENT. 
ARESC(I)    =  ACRES   IN  SUBCOMPARTmEnT  I. 
ARETY(I)    =  ACRES  OF  TYPE   I    IN  ONE  COMPARTMENT. 
BARE  =   DEFORESTED  ACRES   IN  A  COMPARTMENT. 
BARSKI.JI   =  DEFORESTED  ACRES  OF   SITE   J    IN  BLOCK  I. 
BASH)    -   BASAL   AREA  OF   OV  E  R  S  T  OR  Y  (  I  =  1  I    OR   UNDER  STORY!  1=2). 
8AS0  =   BASAL  AREA  PER  ACRE  BEFORE  THINNING. 
BAST  =  BASAL   AREA  PER  ACRE  AFTER  THINNING. 
BAUS  =  BASAL   AREA  OF  UNDERSTORY. 
BDAI    =   M.A.I.    IN   M   BO.    FT.    FROM   YIELD   TABLF . 
BDFCIII    =   M  BD.   FT.   REMOVED  PER  ACRE. 
BDFO(I)    =   M  bd.   FT.   PER  ACRE   BEFORE  THINNING. 


C  BDFT  =  M  BD.   FT.   PER  ACRE   AFTER  THINNING. 

C  BDMAI(I)   =  M.A.I.    IN  M  BD.   FT.   FROM  YIELD  TABLE   AND  ACRES   IN  SITE 

c  class,  working  group  i. 

C  BDUS   =   M   BD.    FT.    IN  UNOERSTORY. 

C  BFAGE  < I » J )   =  GROWING   STOCK  GOAL   IN  M  BD.   FT.   FOR  WORKING  GROUP  I 

C  AND  AGE  CLASS  J. 

C  BFBLKIII    =   M   BD.    FT.    IN   BLOCK  I. 

C  BFINTIII  =  M  BD.  FT.  FROM  INTERMEDIATE  CUTS  ANNUALLY  IN  BALANCED 
C  FOREST,   WORKING  GROUP  I. 

C  BFMII)    =   M  BO.   FT.    IN  0 V E RS T DRY  I  I  =  1  I    OR    IN  UNDERSTORY! 1=2). 

C  BFMRCH  =  MINIMUM  VOLUME  TO  BE   INCLUDED   IN   BO.   FT.   GROWING  STOCK. 

C  BFS(I)  =  GROWING  STOCK  GOAL  BY  AGE  CLASS  I  FOR  ONE  SITE  CLASS  OF 
C  WORKING  CIRCLE,   M  BD.  FT. 

C  BFSPII.J)    =   M   BD.    FT.    OF   WDRKING   GROUP    I    IN   BLOCK  J. 

C  BFTBII.JI    =  M  BD.   FT.    IN  TYPE  J   OF  BLOCK  I. 

C  8FTh(I,JI   =  CURRENT  POTENTIAL  PERIODIC   YIELD  FROM  THINNINGS  IN 
C  BLOCK   I    AND  TYPF   J,   M  BD.  FT. 

C  BFVOL  =   M  BD.   FT.   PER   ACRE  MINUS  VOLUME  LEFT  AS  SEED  SOURCE. 

C  CFAGEII.J)   =   GROWING  STOCK  GOAL    IN  MfRcHANTA8LE   CUBIC   FEET  FOR 
C  WORKING  GROUP   I    AND  AGE   CLASS  J. 

C  CFAI   =  M.A.I.    IN  HUNDREDS   OF   CU.   FT.   FROM  YIELD  TABLE. 

C  CFBFII.J)   =  GROWING  STOCK  GOAL   FOR  WORKING  GROUP   I,    SITE   CLASS  J. 

C  CUBIC  FEET    IN  SAWLOG  TREES. 

C  CFmCII)   =   MERCHANTABLE  CU.   FT.   REMOVED  PER  ACRE . 

C  CFMgRIl)    =  MERCH.   CU.   FT.    IN  BLOCK   I,    IN  HUNDREDS. 

C  CFMOIII    =    MERCHANTABLE   CJ.    FT.    PER   ACRE   BEFORE  THINNING. 

C  CFMT   =   MERCHANTABLE   CU.    FT.    PER   ACRE   AFTER  THINNING. 

C  CFTBII.J)    =   TOTAL   CU.    FT.    IN   TYPE    J   OF   BLOCK    I,    IN  HUNDREDS. 

C  CFVOL  =  CU.   FT.    PER  ACRE  MINUS  VOLUME  LEFT  AS   SEED  SOURCE . 

C  CMII)    =  HUNDREDS   OF  MERCH.   Cu.   FT.    IN  DVERSTDR Y ( I = 1 )   OR  IN 

C  UNDERSTORY I  1=21. 

C  CMS ( I )  =  GROWING  STOCK  GOAL  BY  AGE  CLASS  I  FOR  ONE  SITE  CLASS  OF 
C  WORKING  CIRCLE,   HUNDREDS  OF  CU .  FT. 

C  CMSPII.J)   =   MERCH.   CU.   FT.   OF  WORKING  GROUP    I    IN  BLOCK  J. 

C  CMTBII.JI    =  HUNDREDS  OF  MERCH.   CU.   FT.    IN  TYPE   J  OF   BLOCK  I. 

C  CMTHII.JI    =  CURRENT  POTENTIAL   PERIODIC  YIELO  FROM   THINNINGS  IN 
C  BLOCK  I    AND  TYPE  J,   HJNOREDS   OF  CUBIC  FEET. 

C  COMBFIII    =   MINIMUM  COMMERCIAL   CUT  OF  WORKING  GROUP   I   IN  M  BD.  FT. 

C  COMCU(I)  =  MINIMUM  COMMERCIAL  CUT  OF  WORKING  GROUP  I  IN  HUNDREDS 
C  OF  CUBIC  FEET   PER  ACRE . 

C  CUCYIII    =   INTERVAL   BETWEEN   INTERMEDIATE  CUTS  FOR  WORKING  GROUP  I. 

C  CUINTII)    =  CU.   FT.   FROM   INTERMEDIATE  CUTS  ANNUALLY   IN  BALANCED 
C  FOREST,   WORKING  GROJP  I. 

C  CUMAI(I)   =   M.A.I.    IN  HUNDREDS   OF  CU.   FT.   FROM  YIELD   TABLE   A N 0 
C  ACRES   IN  SITE   CLASS,   WORKING  GROUP  I. 

C  CUTAII.J)    =   POTENTIAL   BD.   FT.   VOLUME,   LESS  SHELTERWOOD,  AVAILABLE 

C  FROM  REGENERATION  CUTS  -  BLOCK   I,    TIMBER  TYPE  J. 

C  CUTBd.J)    =   POTENTIAL    BD.    FT.    VOLUME   AVAILABLE   FROM   REMOVAL  OF 

C  OVERWOOD  -  BLOCK   I,    TIMBER   TYPE  J. 

C  CVR(I)    =   NUMBER  OF   MAP  SQUARES   IN  TYPE  I. 

C  CYCL   =   INTERVAL   BETwFEN   INTERMEDIATE  CUTS. 

C  DATE   =  DATE   OF  MOST  RECENT   CHANGES   IN   INVENTORY  OR   OTHER  DATA. 

C  DBHIII    =   AVERAGE   D.B.H.   OF  OVERS  TOR Y I  I = 1  I   OR  UNOERSTORY! 1=21. 

C  DBHE   =  ESTIMATE   OF  AVERAGE  D.B.H.    AFTER  THINNING. 

C  DBH 0  =   AVERAGE   STANO  D.B.H.    BEFOkF  THINNING. 


21 


C  DBhT  =   AVERAGE   STAND  D.8.H.   AFTER   THINNING.  C 

C  DBHTHd.J)   =   AVERAGE   STANO  D.B.H.   AT  AGE  AGETHII.J),   WORKING  C 

C                     GROUP   I,   SITE  CLASS  J.  C 

C  DELAY ( I )    =  YEARS  DELAY  BETWEEN  CLEARCUTT ING  AND  ESTABLISHMENT  OF  C 

C                     NEW  STAND,   WORKING  GROUP   I.  C 

C  DEN ( I )   =  TREES  PER   ACRE   IN  OVERS  TORY d  =  1 )   OR  UNDER  STORY  I  I =  2 ) .  c 

C  DENO  =  TREES   PER  ACRE   BEFORE  THINNING.  C 

C  DENT  =  TREES   PER  ACRE  AFTER  THINNING.  C 

C  DENTH ( I , J )   =   NUMBER  OF  TREES   PER  ACRE  JUST  BEFORE  INITIAL 

C                     THINNING,   WORKING  GROUP   I,    SITE  CLASS   J.  C 

C  DFBFd.J)    =  DIFFER FNCE  BETWEEN  ACTUAL  STOCK   AND  GOAL    IN  M  BD .   FT.  C 

C                     FOR  WORKING  GROUP   I    AND  AGE  CLASS  J.  C 

C  DFMC(I.J)   =  DIFFERENCE  BETWEEN  ACTUAL   STOCK  AND  GOAL   IN  HUNDREDS  C 

C                     OF  CU.   FT.   FOR  WORKING  GROUP   I   AND  AGE   CLASS   J .  C 

C  DLEV(I)    =   GROWING  STOCK  LEVEL   FOR  THINNINGS   AFTER    INITIAL   CUT,  c 

C                     WORKING  GROUP   I.  C 

C  DMRUI   =   DWARF   MISTLETOE  RATING  OF  PLOT  OR  SUBCOMP  AR  TMENT ,   BY  c 

C                     OVERSTORYI 1=1 )    AND  UNDERSTORY (1=2).  C 

C  DMUS  =  AVERAGE  D.B.H.   OF  UNDERSTORY.  C 

C  DNUS  =  NUMBER  OF   TREES   IN  UNDERSTORY ■  C 

C  EOIV(I)   =  ACRES   PER   STANDARD  ACRE,   SITE  CLASS   I,   FROM  BOARD  FEET.  C 

C  EOVCF(I)   =  ACRES   PER   STANDARD  ACRE,   SITE  CLASS   I,   FROM  CUBIC   FEET.  c 

C  FACIII    =  RATIO  OF   YIELD  OF  SITE  CLASS   I   TO  STANDARD  YIELD,   BOTH  c 

C                     IN  BOARD  FEET .  C 

C  FACCFII)   =  RATIO  OF  YIELD  OF   SITE   CLASS   I   TO  STANDARD  YIELD,    BOTH  C 

C                     IN  CUBIC   FEET.  C 

C  FBAII)   =   FUTURE   BASAL   AREA  OF  OVERSTORYI  1  =  1)   OR   UNDER  STORY d = 2  I .  C 

C  FBD(I)   =   FUTURE  M  BD.   FT.    IN  OVERSTORYI 1=1)   OR   UNDER  STORY  I  I =2  I .  C 

C  FCTR(I)   =  MERCHANTABLE  CU.   FT.   PER  TOTAL  CU.   FT.   -  FACTOR.  C 

C  F  DM  I  I )   =  FUTURE  AVERAGE   D.B.H.   OF   OVERSToRYIl)   OR  UNDER S TOR Y ( 2 ) .  C 

C  FDN 1  I )   =   FUTURE   TREES   PER   ACRE   IN  OVERSTORY I  1 )   OR   UNDERSTORY! 2) .  c 

C  FHT(I1   =   FUTURE   AVE.    HEIGHT  OF   OVER  STORY ( I  =  1 )   OR  UNDERSTORY! 1=2).  C 

C  FINB(I)   =  EXPECTED  ANNUAL   YIELD   IN  M  BD.   FT.   FROM  FINAL  CUTS  C 

C                     DURING  NEXT  PERIOO,   WORKING  GROUP   I.  C 

C  FINC(I)   =   EXPECTED  ANNUAL   YIELD   IN  CU.   FT.   FROM  FINAL  CUTS  DURING  C 

C                     NEXT  PERIOD,   WORKING  GROUP   I.  C 

C  FMCII)   =  FUTURE  MERCH.   CU.   FT.    IN  OVERSTORY(l)   OR  UNDERSTORY! 2) .  C 

C  FNACIi)   =  EXPECTED   ACRES  TO  RECEIVE  FINAL  CUTS  ANNUALLY  DURING  C 

C                     NEXT  PERIOD,   WORKING  GROUP   I.  C 

C  FNBD(I)   =  ANNUAL  YIELD  FROM  FINAL   CUTS  WITH  BALANCED  SERIES  OF  AGE  C 

C                     CLASSES,   M  BD.   FT.   OF  WORKING  GROUP    I.  C 

C  FNCUlI)    =   ANNUAL   YIELD  FROM   FINAL    CJTS   WITH   BALANCED   SERIES  OF   AGE  C 

C                     CLASSES,   Cu.   FT.   OF  WORKING  GROUP    I.  C 

C  FORET(I)    =  NAME  OF   FOREST   OR  WORKING  CIRCLE.  C 

C  FVL1I)   =  FUTURE   TOTAL  VOLUME  OF   OVERSTORY ( I = 1 )   OR  UNDERSTORY! 1=2) ■  C 

C  GRBD(I,J,K)    =   PERIODIC  GROWTH  OF  WORKING  GROUP   I,    BLOCK  J,   AND  AGE  C 

C                     CLASS  K    IN  M  BD.   FT.  C 

C  GRMC(I,J,KI   =   PERIODIC  GROWTH  OF  WORKING  GROUP   I,    BLOCK   J,   AND  AGE  C 

C                     CLASS  K   IN  HUNDREDS   OF   MERCH.   CU.   FT.  C 

C  GROWB(I,J,K)    =  GROWTH  RATE  OF  BD.   FT.    IN   SHELTERWOOD.     WORKING  C 

C                     GROUP   I,   REMOVAL   CjT   J,    SITE    INDEX  CLASS  K •  C 

C  GROWC(I,J,K)    =  GROWTH  RATE  OF  CU.   FT.    IN   SHELTERWOOD.     WORKING  C 

C                     GROUP   I,   REMOVAL  CUT   J,   SITE   INOEX   CLASS   K.  C 

C  GRUP1I)   =  AREA  OF  WORKING  GROUP   I    IN  A  COMPARTMENT.  C 

C  GVLBFII)   =  TOTAL  GROWING  STOCK  GOAL  FOR  WORKING  GROUP   I,   M  BD.   FT.  C 

c  gvlcuiI)  =  total  growing  stock  goal  for  working  group  i,  cu.  ft.  c 

C                 SUM  OF  APPROPRIATE  sobcfii.j)  for  sub-sawlog  trees.  c 

C  HELPII.J)    =   POTENTIAL   NONCOMMERCIAL   THINNING    IN   NEXT   PERIOD,    ACRES  C 

C                     OF  TYPE  J   IN  BLOCK    I .  C 

C  HT(I)   =  AVERAGE  HEIGHT  OF  OVERSTORY! 1=1)   OR  UNDERSTORY! 1=2).  C 

C  HTCUM  =  CUMULATIVE   CHANGE   IN  AVERAGE  HEIGHT   FROM  THINNING.  C 

C  HTSO  =   TREE  HEIGHT   BEFORE  THINNING.  C 

C  HTST  =   TREE  HEIGHT   AFTER  THINNING.  C 

C  HTUS  =  AVERAGE  HEIGHT  OF  UNDERSTORY  TREES.  C 

C  IBK  =  BLOCK  SOURCE   OF   INVENTORY   RECORO.  C 

C  ICT9  =  NUMBER  OF  LOGICAL  UNIT   FOR   CARD  TYPE  9   INPUT.  C 

C                     ICT9  =  4,   READ   INVENTORY  FROM  TAPE  FILE.  C 

C                     ICT9  =  5,   READ   INVENTORY  FROM  CARO  FILE.  C 

C  INVL(I,J,K)   =   INTERVAL  BETWEEN  CUTS  AFTER   AGE  REGN(I,J,K).   WORKING  C 

C                     GROUP  I,   REMOVAL   CUT   J,   SITE   CLASS   K.   J  =  l   OR   2.  C 

C  ISUB  =   SUBCOMPARyMENT   SOURCE  OF   INVENTORY  RECORO.  C 

C  KAK  =  SUBSCRIPT  FOR  WORKING  GROUP   IN  VARIOUS  ARRAYS.  C 

C  KAN   =   SUBSCRIPT   FOR   SITE   CLASS    IN   VARIOUS   ARRAYS.  C 

C  KBK  =  BLOCK  NUMBER.  C 

C  KOMP  =  COMPARTMENT  NUMBER.  C 

C  KSUBIl.J)    =   SUBCOMPARTMENT  NUMBERS  OF  MAP  SQUARES.  C 

C  KTYP(I.J)   =  TYPE  CLASSIFICATION  OF  MAP  SQUARES.  C 

C  MAP   =   INDEX   TO   PRINT    (1)    OR   OMIT    10)    MAPS.  C 

C  M I N  =   MINIMUM  AGE  FOR   STAND  TO  BE   INCLUDED  IN  GROWING  STOCK.  C 

C  MNK  =  TEMPORARY   VARIABLE,    ASSIGNED  MEANINGS   AS  NEEDED.  C 

C  NBK   =   NUMBER   OF   BLOCKS    IN   WORKING   CIRCLE.   MUST   BE   AT   LEAST   ONE.  C 

C  NCMP  =  NUMBER  OF   COMPARTMENTS    IN  WORKING  CIRCLE.  C 

C  NROW  =  NUMBER  OF   ROWS   IN  COMPARTMENT  MAP.  C 

C  NSBKII)   =   NUMBER  OF  SUBCOMPARTMENTS   IN  BLOCK   I.  C 

C  NSKII    =  NUMBER  OF   SITE  CLASSES    IN  WDRKING  GROUP   1.  C 

C  NSUB  =  NUMBER  OF   SUBCOMPARTMENTS    IN  WORKING  CIRCLE.  C 

C  NTYP  =  COVER  OR  USE   TYPE  OF   INVENTORY   PLOT  OR   SUBCOMPARTMENT.  C 

C  NWGP  =  NUMBER  OF  WORKING  GROUPS    IN   WORKING  CIRCLE.  C 

C  OPBDIII    =   ALLOWABLE   ANNUAL   CUT    IN   M   BD.    FT.    FOR   WORKING   GROUP    I  C 

C                     WITH  BALANCED  AGE  CLASSES,   REGENERATION  CUTS.  C 

C  OPCU(I)   =   ALLOWABLE   ANNUAL  CUT   IN  CU.   FT.   FOR  WORKING  GROUP   I   WITH  C 

C                     BALANCED  AGE  CLASSES,   REGENERATION  CUTS.  C 

C  OPENII.J)   =   POTENTIAL   COMMERCIAL   THINNING   IN  NEXT   PERIOD,   ACRES  OF  C 

C                     TYPE   J   IN  BLOCK   I.  C 

C  OPTION  =   OPTION  DESIRED  TO  MAKE   AREA  CALCULATIONS.   MAY   BE   AREA1,  C 

C                     AREA2,   OR   MAPS.  C 

C  OURS  =  ACRES   IN  WORKING  CIRCLE,    EXCLUDING  OTHER  OWNERSHIP.  C 

C  PABRI1I   =  DEFORESTED  ACRES   IN  BLOCK   I,    EXCLUOING  UNITS  WITH  KNOWN  C 

C                     AREA  ON   INVENTORY  RECORD.  C 

C  PAFN!1,J,K)   =   ACRES  TO  RECEIVE  FINAL   CUT  -  WORKING  GROUP   I,   BLOCK  C 

C                     J,   AGE  CLASS  K  -  EXCLUDES  AREAS  ON   INVENTORY  RECORD.  C 

C  PAIBDII)   =  P.A.I.    IN   M  BO.   FT.,   WORKING  GROUP   I.  C 

C  PAICU(I)   =  P.A.I.    IN  HUNDREDS  OF  CUBIC  FEET,   WORKING  GROUP   I.  C 

C  PARGil.J.K)    =   ACRES  TO  RECEIVE  REGENERATION  CUT   -  WORKING  GROUP   I,  C 

C                     BLOCK  J,   AGE   CLASS  K   -  EXCLUDES  KNOWN  AREAS.  C 

C  PAR  T Y ( I , J )    =   AREA   OF   TYPE   J    IN   BLOCK    I,    EXCLUDING  UNITS   WITH   KNOWN  C 

C                     AREA  ON   INVENTORY  RECORO.  C 

C  PASIil.J.K)   =   ACRES   OF  WORKING  GROUP    I,    BLOCK  J,   AND   SITE   CLASS  K ,  C 
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EXCLUDING  KNOWN  AREAS. 
PASP(I.J)   =   AREA  OF  WORKING  GROUP   I    IN  BLOCK  J,   EXCLUDING  UNITS 

WITH   KNOWN   AREA   ON   INVENTORY  RECORD. 
PBFTU.J)   =   POTENTIAL  YIELD   IN  M   BD.   FT.   FROM  THINNINGS  -   BLOCK  I, 

TYPE   J  -  EXCLUDING  UNITS  OF  KNOWN  AREA. 
PBRSIII.J)   =  DEFORESTED  ACRES  OF   SITE  J   IN  BLOCK   I,  EXCLUDING 

UNITS   WITH   KNOWN   AREA   ON   INVENTORY  RECORD. 
PCMTd.J)   =   POTENTIAL  YIELD   IN  MERCH.   CU.   FT.   FROM   THINNINGS  - 

BLOCK    I,    TYPE   J   -   EXCLUDING  UNITS   OF   KNOWN  AREA. 
PCTAd.J)   =  POTENTIAL  BD.   FT.   CUT   FROM  REGENERATION  CUTS-   BLOCK  I, 

TYPE   J  -  EXCLUDING  UNITS  OF  KNOWN  AREA. 
PCTBd.J)    =  POTENTIAL   BD.   FT.   CUT   FROM  FINAL  CUTS  -  BLOCK    I,  TYPE 

J  -  EXCLUDING  UNITS  OF  KNOWN  AREA. 
POCFNd.JI   =  EXPECTED  YIELD   IN  CU.   FT.   FROM  FINAL  CUTS  DURING  NEXT 

PERIOD,   BLOCK   I,   TYPE  J. 
PDCFRM.J)   =  EXPECTED  YIELD   IN  CJ.   FT.   FROM  REGENERATION  CUTS  NEXT 

PERIOD,   BLOCK   I,   TYPE  J. 
PDCUTd)   =  ACRES   IN  AGE  CLASS  WITH  BALANCED  SERIES  OF   AGE  CLASSES. 
PGBDd.J.K)   =  PERIODIC  GROWTH   IN  M  BO.   FT.  WORKING  GROUP   I,  BLOCK 

J,   AGE  CLASS  K ,   EXCLUDING  UNITS  OF  KNOWN  AREA. 
PGMC(I,J,K)   =   PERIODIC  GROWTH  IN  MERCH.   CU.   FT.   WORKING  GROUP  1, 

BLOCK  J,   AGE  CLASS  K,   EXCLUDING  UNITS  OF  KNOWN  AREA. 
PHLPII.J)   =   POTENTIAL  NONCOMMERCIAL  THINNING   IN  NExT  PERIOD,  ACRES 

OF   TYPE   J   IN  BLOCK   I.   RECORDS  WITH  AREA  =  0.0,  ONLY. 
POOR(I)   =  MINIMUM  SITE   INDEX  FOR   MANAGEMENT,   WORKING  GROUP  I. 
POPNd.J)   =  POTENTIAL  COMMERCIAL   THINNING   IN  NEXT  PERIOD,   ACRES  OF 

TYPE    J   IN  BLOCK    I.    RECORDS   WITH   AREA   =   0.0,  ONLY. 
PPBF(I,J,KI    =   TOTAL  VOLUME   IN  M  BD.   FT.   FOR  WORKING  GROUP   I,  BLOCK 

J,   AGE  CLASS  K.   EXCLUDES  UNITS  OF  KNOWN  AREA. 
PPCRd.J)   =  EXPECTED  YIELD  IN  CU.   FT.   FROM  REGENERATION  CUTS  - 

BLOCK   I,   TYPE  J  -  EXCLUDING  UNITS   OF  KNOWN  AREA. 
PPFNd.J)    =  EXPECTED  YIELD   IN  CU.   FT.   FROM  FINAL  CUTS  -  BLOCK  I, 

TYPE  J  -  EXCLUDING  UNITS  OF  KNOWN  AREA. 
PPMCII.J.K)   =  TOTAL  VOLJME   IN  MERCH.   CU.   FT.   FOR  WORKING  GROUP  I. 

BLOCK  J,   AND  AGE  CLASS  K.   EXCLUDES  KNOWN  AREAS. 
PPTCd.J.K]   =  SUM  OF   TOTAL  CU.   FT.   FOR   WORKING  GROUP   I,   BLOCK  J, 

AGE  CLASS  K.   EXCLUDES  UNITS  OF  KNOWN  AREA. 
PRET  =  PERCENTAGE   OF   TREES  RETAINED  AFTER   INITIAL  THINNING. 
PRODII)    =  BOARD  FEET   PER  TOTAL  CUBIC  FOOT  -  CONVERSION  FACTOR. 
PSd.J.K)    =   NUMBER  OF   INVENTORY  PLOTS  OF  WORKING  GROUP   I,   BLOCK  J, 

AND  SITE   CLASS  K. 
PSLVd.J)    =  BD.   FT.   VOLUME   TO  BE  SALVAGEO  -  BLOCK   I,   TYPE   J  - 

EXCLUDING  UNITS   OF   KNOWN  AREA. 
PSPLTd.JI   =   NUMBER  OF  INVENTORY  PLOTS  OF  BLOCK   I   AND  TYPE   J.  NOT 

INCLUDING  UNITS   OF   KNOWN  AREA. 
PTBF (I , J ,  K )   =   TOTAL  VOLJME   IN  M  BD.   FT.   FOR   WORKING  GROUP   I,  BLOCK 

J,    AND   AGE   CLASS  K. 
PTCU(I,J,K)   =  SUM  OF   TOTAL  CU.   FT.   FOR  WORKING  GROUP   I,   BLOCK  J, 

AND  AGE  CLASS  K.    IN  HJNDREDS   OF  CU.  FT. 
PTMC(I,J,K)   =   TOTAL  VOLUME   IN  MERCH.   CU.   FT.   FO*  WORKING  GROUP  I. 

BLOCK  J,   AND  AGE  CLASS  K.    IN  HUNDREDS  OF  CU.  FT. 
PUNCd.J)    =  AREA  OF  BLOCK   I,   TYPE   J  BELOW  MINIMUM  SITE  QUALITY 

FOR  REGULATION,   EXCLUOING  UNITS   OF  KNOWN  AREA. 
QUALM)   =  SITE  CLASSES   PRESENT   IN  WORKING  GROUP  I. 

REGNd.J.K)   =  AGE  AT  WHICH  REGENERATION  CUT  MADE.   WORKING  GROUP  I, 

CUT  J,   SITE  CLASS  K.   J=l,2,   OR  3. 
RGAC ( I )   =  EXPECTED  ACRES   GIVEN  REGENERATION  CUTS  ANNUALLY  OURING 

NEXT  PERIOD,   WORKING  GROUP  I. 
RGBDII)    =   EXPECTED  ANNUAL  YIELD  IN  M  BD.   FT.   FROM  REGENERATION 

CUTS  DURING  NEXT   PERIOD,   WORKING  GROUP  I. 
RGC U II )   =  EXPECTED  ANNUAL  YIELD   IN  CU.   FT.   FROM  REGENERATION  CUTS 

DURING  NEXT  PERIOD,   WORKING  GROUP  I. 
RINTII)   =   NUMBER  OF  YEARS   FOR  WHICH  EQUATIONS  PREDICT  GROWTH  WITH 

A  SINGLE  PROJECTION,   WORKING  GROUP  I. 
ROTA  =  OLDEST  STAND  AGE   IN  A  YIELD  TABLE. 

SACCF   =   AREA   OF   WORKING  CIRCLE   IN   STANDARD   ACRES,    FROM   CU.  FT. 
SAHP(I)   =  POTENTIAL  NONCOMMERCIAL   THINNING   IN  NEXT  PERIOD,  ACRES 

IN  WORKING  GROUP  I. 
SANCUTII )    =   ALLOWABLE   ANNUAL   CUT    IN   ACRES,    WORKING  GROUP  I. 
SARETYII  ,J)   =   AREA  OF  TYPE  J   IN  BLOCK  1. 

SARSC   =   TOTAL   AREA  OF   SUBCOMPARTMENTS   OF   A  COMPARTMENT. 
SARSPII)   =  TOTAL   AREA  OF  WORKING  GROUP   I,    INCLUDING  SHARE  OF 
DEFORESTED  AREA. 

SATHd)    =   POTENTIAL  COMMERCIAL  THINNING   IN  NEXT  PERIOD,   ACRES  IN 

WORKING  GROUP  I. 
SBARB  =  TOTAL  BRUSHY  DEFORESTED  ACRES   IN  WORKING  CIRCLE. 
SBARE  =   TOTAL  DEFORESTED  ACRES   IN  WORKING  CIRCLE. 
SBARG  =   TOTAL  GRASSY  DEFORESTED  ACRES   IN  WORKING  CIRCLE. 
SBDF  =  M  BD.   FT.    IN  WORKING  CIRCLE. 
SBF ( I )   =   TOTAL  M  BD.   FT.    IN  WORKING  GROUP  I. 

SBFRIll   =  BD.   FT.   FROM  THINNINGS  NEXT   PERIOO,   WORKING  GROUP  I. 
SBHd)   =   BD.   Fy.   FROM  REGENERATION  CUTS  DURING  NEXT  PERIOD, 
WORKING  GROUP  I. 

SBMII.J)    =  BO.   FT.   FROM  THINNING  OUR  I NG  NEXT   PERIOD,   WORKING  GROUP 
I ,   BLOCK  J. 

SBSVd)   =   BD.   FT.   FROM  SALVAGE  NEXT  PERIOD,   WORKING  GROUP  I. 
SCAM, J)    =  BD.   FT.   FROM  REGENERATION  CUTS  DURING  NEXT  PERIOO, 

WORKING  GROUP  I,   BLOCK  J. 
SCALE  =  ACRES   IN  ONE   MAP  SQUARE. 

SCBM.J)    =  BO.   FT.   FROM  FINAL  CUTS  NEXT  PERIOD,   WORKING  GROUP  I, 
BLOCK  J. 

SCFM  =  HUNOREOS   OF   MERCH.   CU.   FT.    IN  WORKING  CIRCLE. 

SCNM)    =  EXPECTED  YIELD  IN  CU.   FT.   FROM  FINAL  CJTS  DURING  NEXT 

PERIOD,   WORKING  GROUP  I. 
SCNBd.J)   =  EXPECTED  YIELD   IN  CU.   FT.   FROM  FINAL  CUTS  DURING  NEXT 

PERIOO,   WORKING  GROUP  I,   BLOCK  J. 
SCNTd)   =  EXPECTED  YIELD  IN  CU.   FT.   FROM  FINAL   CUTS  DURING  NEXT 

PERIOD,   TYPE  I. 

SCRd)   =  EXPECTED  YIELD  IN  CU.   FT.   FROM  REGENERATION  CUTS  DURING 

NEXT  PERIOD,   WORKING  GROUP  I. 
SCRBd.J)    =  EXPECTED  YIELD   IN  CU.   FT.   FROM  REGENERATION  CUTS 

DURING  NEXT  PERIOD,   WORKING  GROUP   I,   BLOCK  J. 
SCRT(I)   =  EXPECTED  YIELD   IN  CU.   FT.   FROM  REGENERATION  CUTS  DURING 

NEXT   PERIOD,   TYPE  I. 
SCUM, J)   =  CU.   FT.   FROM  THINNING  NEXT  PERIOO,   WORKING  GROUP  I, 

BLOCK  J. 

SCURM)   =  CU.   FT.   FROM  THINNING  NEXT   PERIOD,   WORKING  GROUP  I. 
SDBFM)   =  TOTAL   DIFFERENCE  BETWEEN  ACTUAL   AND  GOAL   GROWING  STOCKS 


IN   H    BO.    FT.    FOR    WORKING   GROUP    I . 

SDMCII)  =  TOTAL  DIFFERENCE  between  actual  and  goal  growing  stock 

IN  HUNDREDS  OF  CU.   FT.   FOR  WORKING  GROUP  I. 
SFNL(I)    =   ACRES   FOR   FINAL   CUT   ANNUALLY   WITH   OVERWOOD   AND  BALANCED 

DISTRIBUTION  OF   AGE  CLASSES,   WORKING  GROUP  I. 
SFR(I)    =   BD.    FT.    FROM   FINAL   CUTS,    NEXT   PERIOD,    WORK  I v|G   GROUP  I. 
SHELTU.J.Kl    =  H  BD.   FT.   PER   ACRE  LEFT   AS  SHELTERWOOD.  WORKING 

GROUP   I,   REMOVAL  CUT   J,   SITE  CLASS  K. 
SHL(I.J)    =  POTENTIAL  NONCOMMERCIAL   THINNING   IN  NEXT  PERIOD, 

WORKING  GROUP   I    IN  BLOCK  J. 
SHWD(I,J,KI   =  CU.   FT.    PER   ACRE  LEFT  AS   SHELTERWOOD.  WORKING 

•GROUP   I,   REMOVAL  CUT   J,   SITE   CLASS  K. 
SIDLA  =  TOTAL  ALLOWABLE  CUT   IN  ACRES   FOR  ONE  YEA*   IN  A  BALANCED 

WORKING  CIRCLE. 
SIDLB  =   TOTAL  ALLOWABLE  CUT   IN  M  BD.   FT.   FOR  ONE  YEA*   IN  A 

BALANCED  WORKING  CIRCLE. 
SI3LC   =   TOTAL   ALLOWABLE   CUT    IN   CJ.   FT.   FOR   ONE   YEAR    IN   A  BALANCED 

WORKING  CIRCLE. 
SITE  =   SITE  INDEX. 

SLAND  =   TOTAL  ACRES   IN  WORKING  CIRCLE. 

SLVGU.J)   =  BD.   FT.   VOLJME  TO  BE  SALVAGED,   BLOCK   I,   TYPE  J. 
SMCIII    =  HUNDREDS  OF   CUBIC  FEET  OF  WORKING  GROUP   I    IN  WORKING 
CIRCLE. 

SMPL  =  ACRES  OF  TYPE   J  DF  BLOCK    I   REPRESENTED  BY  ONE  INVENTORY 
PLOT. 

SMSPII)    =  AREA  OF   WORKING  GROUP   I    IN  WORKING  CIRCLE. 

SOPH, J)   =  POTENTIAL   COMMERCIAL  THINNING   IN  NEXT  PERIOD,  WORKING 

GROUP   I    IN  BLOCK  J. 
SOPTAII)   =  TOTAL   ALLOWABLE  CUT   IN  ACRES  FOR  ONE  YEAR   IN  BALANCED 

WORKING  GROUP  I. 
SOPTBIII    =   TOTAL   M   BD.    FT.    CUT    IN   ONE   YEAR  WITH 

OF   AGE  CLASSES,   WORKING  GROUP  I. 
SOPTC(I)   =  TOTAL  CU.    FT.   CUT   IN  ONE  YEAR  WITH  A   BALANCED  SERIES  OF 

AGE  CLASSES ,   WORKING  GROUP  I. 
SPLTII.J)   =  NUMBER  OF  PLOT  AND  SJBCOMPARTMENT  RECORDS,    TIMBER  TYPE 

J  OF  BLOCK  I. 

SPNUMIII    =   INDEX  NUMBER  TO   IDENTIFY  SET  OF  SPECIES-SPECIFIC 
STATEMENTS   TO   BE   CALLED  BY   SUBROUTINE  WORKGP. 

SSLII.J)    =  BD.   FT.   FROM  SALVAGE  NEXT  PERIOD,   WORKING  GROUP  I, 
BLOCK  J. 

SSPT  =   TOTAL   OF   INVENTORY  PLOTS   IN  WORKING  CIRCLE. 

SSTAC  =  AREA  OF   WORKING  CIRCLE  IN  STANDARO  ACRES   FROM  BOARD  FEET. 
STACF(I)   =  AREA  OF  SITE  CLASS   I    IN  STANDARO  ACRES  -  FROM  CU.  FEET. 
STBS(I)    =  BD.   FT.   FROM  THINNINGS  DURING  NEXT  PERIOO,   TYPE  I. 
STC(I)   =   TOTAL  CU.   FT.   OF  WORKING  GROUP   I    IN  WORKING  CIRCLE. 
STCF   =  TOTAL  CU.    FT.    IN  WORKING  CIRCLE,    IN  HUNDREDS. 
STDAC(I)   =  AREA  OF  SITE  CLASS   I    IN  STANOARD  ACRES  -  FROM  BO.  FEET. 
STFOU)   =  BD.   FT.   FROM  FINAL  CUTS  DURING  NEXT  PERIOD,    TYPE  I. 
STHBF  =  CURRENT  POTENTIAL   PERIODIC  YIELD  FROM  THINNINGS,   TOTAL  FOR 

WORKING  CIRCLE   IN  M  BD.  FT. 
STHCM  =  CURRENT  POTENTIAL   PERIODIC  YIELD  FROM   THINNINGS,   TOTAL  FOR 

WORKING  CIRCLE   IN  HUNDREDS  OF  CUBIC  FEET. 
STHP(I)   =   POTENTIAL  NONCOMMERCIAL   THINNING   IN  NEXT   PERIOD,  ACRES 

OF   TYPE  I. 

STHRII)   =  BD.   FT.   FROM  REGENERATION  CUTS  DURING  NEXT  PERIOD, 

TYPE  I. 
STLVII )   =  BD. 
STNC ( I )   =  CU. 
STONI I  ) 
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SITE  CLASS 


SITE   CLASS  J.  C 


FT.    FROM  SALVAGE   DJRING   NEXT   PERIOD,    TYPE  I. 
FT.   FROM  THINNING  DURING  NEXT  PER IOO,    TYPE  I. 
POTENTIAL  COMMERCIAL  THINNING   IN  NEXT  PERIOD,   ACRES  OF 
TYPE  I. 

stry  =  stand  component  used  to  type  the  stand.  enter  1  if  the 

UNDeRSTORY  was  used,  otherwise  leave  blank. 
styp(i)  =  acres  of  type  i  in  working  circle. 
subbf(i.j)  =  growing  stock  goal  for  working  group  i. 

m  bd.  ft.  in  sawlog  trees, 
subcfii.j)  =  growing  stock  goal  for  working  group  i, 

cubic  feet  in  trees  below  sawlog  size. 
subty(i)  =  type  of  subcompartment  i. 

sumcf(i)  =  total  growing  stock  goal  for  working  group  i  in  merch. 

cu.  ft.  sum  of  appropriate  allcf(i,j)  for  entire  stands, 
sunc  =  total  low  site  acres  in  working  circle. 
syst(i)  =  flag  set  if  working  group  i  to  be  regenerated  by  seed 

trees  or  shelterwood. 
tba(i)  =  basal  area  after  thinning  to  specified  level  now  (1=11  or 

in  time  years  ( 1=2) . 
tbd(i)  =  m  bd.  ft.  after  thinning  to  specified  level  now  (1=1)  or 

in  time  years  (1=2). 
tcf(i)  =  total  cubic  feet  in  block  i. 

tcm(i)  =  hunoreds  of  cu.  ft.  after  thinning  to  specified  level  now 

(1=11  or  in  time  years  ( 1=2) . 
tcspii.ji  =  total  cu.  ft.  of  working  g'oup  i  in  block  j. 
tdm  (  i  )  =  average  d.b.h.  after  thinning  to  specified  level  now 

(1=1)  or  in  time  years  (1=2  1. 
tem  =  temporary  variable,  assigned  meanings  as  needed. 
thac(i)  =  possible  acres  to  thin  annually  during  next  period, 

working  group  i. 
thb  =  average  potential  volume  from  thinning,  m  80.  ft. 
thboii)  =  expected  annual  yield  in  m  bd.  ft.  from  thinnings  during 

next  period,  working  group  i. 
thc  =  average  potential  volume  from  thinning,  hundreds  of  cu.  ft. 
thcuiii  =  expected  annual  yield  in  cu.  ft.  from  thinnings  during 

next  period,  working  group  i. 
thin(i)  =  growing  stock  level,  initial  thinning,  working  group  i. 
time  =  number  of  years  in  planning  period.  basis  for  work  index, 
tmbr  =  total  timbered  area  in  working  circle, 
tmpo  =  total  area  of  forest  types  in  working  circle,  including 

nons tocked  types. 
tot(i)  =  total  cubic  feet  in  overstdryi 1  =  1 )  or  understory ( i =2  i . 
totac(i)  =  total  acres  expected  to  be  treated  in  one  year  during 

next  period,  working  group  i. 
totbd i  i )  =  expected  total  annual  yield  in  m  bd.  ft.  during  next 

per  1 00,  working  group  i. 
totc  =  total  cubic  feet  removed  per  acre. 

totcu(i)  =  expected  total  annual  yield  in  cu.  ft.  during  next 

period,  working  group  i. 
toto  =  total  cubic  feet  per  acre  before  thinning, 
tott  =  total  cubic  feet  per  acre  after  thinning, 
tpbii.ji  =  number  of  inventory  plots,  working  group  i,  block  j. 


TVLI1I    =    TOTAL   CU.    FT.    AFTER   THINNING   TO   SPECIFIED   LEVEL   NOW  (1=1) 

OR   IN  TIME   YEARS   I  1  =  2). 
TYPNMII.JI   =  DESCRIPTION  OF  VEGETATIVE  TYPE  OR  USE  TYPE  NUMBER  I. 
UNCMLII.JI   =   AREA  OF  BLOCK   I   AND  TIMBER  TYPE  J  BELOW  MINIMUM 

SITE  QUALITY  FOR  TIMBER  MANAGEMENT  AND  REGULATION. 
UNITII)   =  NUMBER  OF   MAP  SQUARES   IN  SUBCOMPARTMENT  I. 
VLBF(I)    =  VOLUME   IN  M  BD.   FT.   CUT   FROM  SITE  I. 
VLCU(I)   =  VOLUME   IN  CU.   FT.   CUT   FROM  SITE  I. 
VLLVII.J.K)   =   PERCENTAGE  OF  PREVIOUS   DLEV(I)   LEFT  AT  AGE 

REGNII.J.K).   WORKING  GROUP   I,   CUT  J,   SITE   CLASS  K.   J=l  OR  2. 

ENTERED  AS  A  DECIMAL. 
WGNUMIII    =   NUMBER   ASSIGNED  TO  WORKING  GROUP  I. 
WGPOES(l.J)    =  DESCRIPTION  OF  S  I L  V  I CUL  TUR AL  PRESCRIPTION  FOR 

WORKING  GROUP  I. 
WGPNMII.JI   =   NAME   OF  WORKING  GROUP  I. 

WHEN  =  YEAR  OF  FIRST  GROWING  SEASON  AFTER   INVENTORY  WAS  MADE. 
WORK  =   COOE   FOR  TREATMENT   IN  NEXT  PERIOD,   AS  - 

0  =  00  NOTHING  THIS  PERIOD 

1  =   PLANT   OR  SEED 

2  =  THIN 
SALVAGE 

REGENERATION  CUT 

REMOVE   SEED  TREES  OR  SHELTERWOOD 
REMOVE  OVERWOOD  AND  THIN  RESIDUAL 


3  = 


5  = 


COMMON  A0D,AGE12),AGE0,BA(2),BAS(2I , BASO, BAST , BAUS , BFMRCH , BFVOL , 
1CFV0L,DATE(6),DBH(2), DBHE , OBHO , DBHT , DEN ( 2 ) , DENO , DE NT , DMUS , FBA ( 2  I , 
2FCTR (2 ) ,FDM( 2 ) ,FDN( 2  I ,FHT( 2 ) , FORETI 19 ) , FVL( 2) ,HT( 2 ) , HTCUM , HTSO, 
3HTST.KAK ,KNO, M I N , MNK , N BK , NCMP , NS UB , NWGP . P DBHE , PR ET , PROD ( 2 ) .REST, 
4SAVE»SBARB»SBARE,S8ARG,SBAS»SITE»SLAND,TBA(2)»TDM( 2), TEM, TIME, TMBR 
5,TMPO,TOT(2),TOTO,TOTT,TVL(2 I , VDM ( 2 1 , VLU S, DMR ( 2 ) 

COMMON  ABFAG(5,15),ACINT(5),AOJ(5 ) , AGETH ( 5 , 1* ) , ALLCF ( 5 , 1* I ,ALOWC( 5 
1>,ALWBF(5),AMCAG(5,15  > , ANCUT ( 5 , 1 4 )  ,AREA(5.14),BDMAI(5  ) ,  BFAGE  (5,15) 
2 ,BF I, NT (5 ) ,CFAGE(5, 15 ) ,CFBF( 5, 14) ,COMBF( 5 ) , COMCU ( 5),CUCY(5),CUINT(5 
3I.CUMAI(5).OBHTH(5.l4).DELAYI5l,0ENTH(5,14),DLEV(5),FNBD(5>, 
4FNCUI5I.GR0WB(5.2,14> , GROWC ( 5 , 2 , 1 4 ) , GVL BF I  5 ) ,GVLCU( 5 ),INVL(5,3,14) 
5 ,NSI (5 ) ,0PBD(5) , OPCUI 5 ),PAIB0(5),PAICU(5) ,POOR( 5),REGN(5,3,14l, 
6RINT(5),SARSP(5),SBF(5),SHELT15,2,14), SHWD( 5, 2, 14 ) , SMC ( 5 1 , SMSP ( 5 )  , 
7SUBBF(5,14),SUBCF(5,14), SUMCFI 5 ),SYST(5l,THIN(5),vLLV(5,3,14), 
8WGNUM ( 5 ) ,WGPDES(5,20),WGPNM(5,3) , SPNUMI 5 ),TPB(5,7),PASP(5,7) 

COMMON  ACBAR(7),ARBK(7),BARSII7,14),BFTH(7,27),CMTH(7,27I ,CUTA( 7,2 
17I,CUTB(7,27),HELP(7,27),NSBK(7),0PEN(7,27),PBRSI(7,14),PDCFN(7,27 
2I,PDCFR(7,27),PSPLTI7,27I,PUNC(7,27) , SARETY ( 7 , 35 ) , SLVG ( 7 , 27 1 ,SPLT( 
37,27) ,TMTY (7 ) ,UNCML(7,27) ,PABR(7),PARTY(7,35) 

COMMON  ACFNL I  5 ,7, 15 ) , ACRGN (5,7,15) ,ACSI(5,7,14),ACSPI5,7),GRBD(5,7 
1 ,15) ,GRMCI5,7, 15) , PS( 5,7, 14) ,STYP( 35 ) ,TYPNM( 35.5  I ,PASI ( 5, 7,14) 

COMMON   /OPT/   OPTION, ICT9 

COMMON  /BLKA/  ANBDFI 151), ANCUVI 151 I.BDFCI 150 ) , BDFO (150) ,CFMC( 1501 , 
1CFM0I 150) ,CYCL, IROT.K AN.POl , PD2.QUAL I  14 ) , ROT A , VL BF ( 14  I , VLCUI 14) 

COMMON  / BLKB/   PAFN I  5 , 7, 15 1 , P ARGl 5, 7, 1 5 ) , 
1PBFTI7,27),PCMT(7,27I,PCTA(7,27),PCTB(7, 27) ,PGBD( 5,7,15) , PGMC (5,7, 
215),PHLP(7,27),POPN(7,27),PPBF(5,7,15),PPCR(7,27),PPFN(7,27), 
3PPMC(5,7,15l,PPTC(5,7.l5> , PSLV ( 7 , 27 ) , Pt BF ( 5 , 7, 1 5 ) , PTCUI 5, 7 , 15  I , 
4PTMC (5 ,7 , 15) 

COMMON  /BLKC/  ANNAC, ANNBD, ANNCU,FINB( 5  I , F INC ( 5 ) , FN AC ( 5 ) , RGAC I  5) , 
1RGBD I  5  I ,RGCU(5) ,SAHP( 5 ) , S  ANCUT (5I,SATH(5),SBFR(5),SBH(5I,SBSV(5), 
2SCA(5,7),SCB(5,7),SCN(5),SCNB(5,7 I ,SCNT( 25) , SCR ( 5 ) , SCRB ( 5 , 7) , 
3SCRT (25 ) , SCU (5,7) , SCUR I  5 ) , SFNL ( 5 ) , SFR ( 5 ) , SHL (5,7) , SI DL A , S I DLB , 
4SI0LCS0P  (5,7),SOPTA(5),SOPT8(5),SOPTC(5l,  SSL  I  5 , 7  1  ,  STBS  I  25  I  ,  STFO 
5(25),STHP(25I,STHR(25),STLV(25),STNC(25), STONI 251 , THACI 51 , THBD( 5) , 
6THCUI5 I .TOT AC ( 5 ) ,TOTBD( 5) ,TOTCU( 5 ) , SBM( 5, 71 


COMMON   / BL  KO/    I  J, I K.K I .VOL.TVOL 

COMMON  / BLKE/  RABDF (5 ) . RABDI ( 5 ) . R ABDR ( 5),RABT(5),RACFN(5) .RACITI5) 
1.RACRGI5 ) ,RATC( 5  I , SRABO, SRACF 

READ  VARIABLES  THAT  APPLY  TO  THE  WORKING  CIRCLE. 

CALL  BASIS 

INITIALIZE  VARIABLES   APPLICABLE  TO  THE  WORKING  CIRCLE. 
CALL  INIT 

MAKE   INITIAL  REAOING  OF   INVENTORY  RECORDS . 
CALL  SCAN 

CALL  APPROPRIATE   ROUTINE  TO  COMPUTE  AREAS. 

IF    (OPTION  .EQ.   4HAPS    )   CALL  MAPS 
IF   (OPTION   .EO.   4HREA1  )  CALL  AREA1 
IF    (OPTION  .EO.   4HREA2)   CALL  AREA2 
COMPUTE  AREAS   OF  VARIOUS   SUBDIVISIONS  OF  WORKING  CIRCLE. 

CALL  LAND 

COMPUTE  GROWING  STOCK  GOALS  AND  AREA  CONTROL . 
CALL  GOAL 

COMPUTE   PRESENT  VOLUMES ,    FUTURE  GROWTH ,   ETC.,   FROM   INVENTORY  OATA. 

CALL  GOT 
CALL  SUMS 

DETERMINE  DIFFERENCES   BETWEEN  PRESENT   FOREST  AND  GOALS.   PRINT  A 
GUIDE   TO  MANAGEMENT. 

CALL  SUMRY 
CALL  GI0E1 
CALL  GIDE2 
CALL  EXIT 
END 


2  3 


Subroutine  BASIS 

SUBROUTINE  BASIS 

C 

C   TO  READ  VARIABLES  THAT   APPLY  To  THE   FORKING  CIRCLE. 
C 

COMMON  AOD,AGF(2I.AGFn,BA(2),BAS(2),BAS3,BAST,8AJS,BFMaCH,PFVOL, 
1CFV3L,DATE(6),D3H(2I  ,  OBHE  , OBHO,  DBHT,DEN(2),DEND,DENT,DMUS,FPA(2), 
2FCTRI2),FDM(2),FDN(2),FHT(2>,F0RET(19>,FVL[2),HTI2),HTCUM,HTS3, 
3HTST,KAK,KNO,M|N,MNK,NB<,NCMP,NSJB,NWGP,PDRHE,PRET,PRODI2),REST, 
4SAVE, SBARB.SBARE, SB ARG.SRAS, SITE, SLAND,TKAI2),TDM(2),TEM, TIME  ,  TMBR 
5,TMPO,TOT(2).TOTn,TnTT,TVL(2l,VDM(2),VLJS,DMR(2l 

COMMON  A8FAG(5,15),ACINU5),  ADJ  (5),AGETH(5,14I,ALL:f(5,14I  ,ALOWC  I  5 
I)  ,ALWBF(  5)  ,  AmCAGI  5.  lS),A>)CJT(I>,l'.l,AREA(5il4).BDMAI(5),BFA-,E[Ii,lSI 
2,BFINT(5),CFAGEl5,15),CFDFI5,l4>,C3MBF(5),C0MCU(5),CJCY(5),CUINT(5 
3  )  ,-CUMAI  (5).DBHTH(5,14),DELAY(5),CFNTH(5,14),DLEV(5),FNBD(5>, 
4FN:ul5),GROwB(5,2,14),GROWC(5,2,14),GlfLRF(5),GVL;U(5),INVL<5.3,14> 
5,NSII5I,0PBD(5),0PCU(5I.PAI|1D(5),PAICUI5]  , POOR  (5), RE  ON (5, 3, 14), 
6RINT(5>,S4RSP(5),SBF(5l,SH=LT(5,2,14),SHwDt5,2,14),SMC(5l, SMSP( 5) , 
7SUBBF(5,14),SUBCF(5,14),SJMCF(5),SYST(5),ThIN(5).VLLV(5,3,14), 
8WGNUMI5>,wGPOES(5,20),WGPNM(5,3),SPNJM(5),TPB(5,7),P4SP(5,7) 

COMMON  ACBAR(7),ARBK(7),84RSI(7,14I,BFTH(7,27),CMTH(7,27>  ,  CUT  A  (7,  2 
17),:UTR(7,27),HELPI7,27),NSBK(7),0PEN(7,27),PBRsI|7,14),PDCFN(7,27 
2>.PDCFRI7,27),PSPLT|7,27),PuNC(T,27),SARETY|7,35),SLVG(7,27),SPLT( 
37,27),TMTY(7),UNCML(7,27),PARR(7),PARTY(7,35) 

COMMON  ACFNL(5,7,15l,ACR3N(5,7,15),ACSK5,7,14).ACSP(5,7),GRRO(5,7 
1.15),GaMc(5.7,15),PS(5,7,14),STYPI35),TYPNM(35,5),PASI(5,7,14) 

C 

COMMON  /OPT/    OPTION, 1CT9 

C 

00   1  1=1,5 

00  1  J=l,3 

00  1  K>ltl* 

INVL ( I , J , K )   =  0 

REGN I  I , J, K )   =  0.0 

VLLVI I , J,K)    =  0.0 
1  CONTINUE 

DO  5  1=1,5 

00   5  J=l,l« 

AGE  TH( I  , J)   =  0.0 

DBHTHU.JI   =  0.0 
5  OENTHI I , J  )   =  0.0 

c 

C   INITIALIZE   AREA  OPTION  FIELD  TO  BLANK . 

C 

OPTION  =  5H 

C 

C  READ  CARD  TYPE  1. 
C 

READ   (5,10)   OPTION, ICT9, I FORET I  I  I , I  =  1 , 19  I 
10  FORMAT    I  IX,  A4,  I  1  ,  18A4 ,  A2  I 
IF  I  ICT9   . EO.   0)    ICT9  =  5 

C 

C  READ  CARD  TYPE  2. 
C 

READ   (5,151    ( ( TYPNMI I , J | , J=l, 5)  ,  1  =  1,  351 
15  FORMAT   (8(542) ) 

C 

C  READ  CARD  TYPE  3. 
C 

READ   (5,20)   NBK, NC MP, NWGP, M IN , BFKR CH,  T  IME 
20  FORMAT  [4I4.2F4.2I 

C 

C  00  LOOP  TO  R£AD  A  CARD  GROUP  FOR   EACH  WORKING  GROUP . 
C 

DO  45   1=1, NWGP 

C 

C    INITIALIZE   VARIABLES   TO  BE  READ  IN. 
C 


AOJ(I)  = 

0.0 

COMBF  1  I  ) 

=  0.0 

COMCUI I ) 

=  0.0 

CUCYI I  ) 

=  0.0 

DELAY! I ) 

=  0.0 

DLE  V ( I ) 

=  0.0 

POOR ( I  1 

=  0.0 

R I  NT ( I  ) 

=  0.0 

SPNUMI  I  1 

=  0.0 

THIN ( I  ) 

=  0.0 

c 

C   REAO   CARD  TYPE   4 . 
C 

READ    (5,25)    (WGPNMII,JI,J=1,3),WGNUM(I),THIN(II,DLEV(I) , POOR  I  I  I ,C0 
1MBF ( I ) ,COMCU( I),AOJ(I>,DELAY(I>,RINT(I),CUCY(I),SPNUMIII 
25  FORMAT   (  3A4,  F5  .  0  ,  4F4  .  1 ,  F5  .  2  ,  4F4.  1 ,  F4 .  0  ) 

C 

C  READ  CARD  TYPE  5. 

C 

READ   (5,33)    I WGPDE  S ( I ,K),K=1,20) 
30  FORMAT  (20A4I 

C 

C  REAO  CONTROLS  FOR  REGENERATION  CUTS.      INCLUDE  UP   TO   14  CARDS  FOR  EACH 
C   WORKING  GROUP  TO  COVER   ALL  10-FOOT   SITE   INDEX  CLASSES   FROM  POOR ( 1 ) 
C   TO  AT  LEAST  HIGHEST  CLASS   POSSIBLE.      END  WITH  A  BLANK   TYPE   6  CARD  IF 
C  CLASSES  DO  NOT  GO  To  140. 
C 

MPR   =   POOR!  I)   *  0.1   ♦  0.45 
DO  40  J=MPR,14 

C  READ  CARD  TYPE  6. 
C 

REAO    (5,351  REGN(I,1,J)WLLV(I,1,J],!NVL(I.I.J),3E&N(1,2,JI,VLLV(I 
1 ,2 , J) , INVL (I ,2, J) , REGN I  1 ,3, J) 
35  FORMAT    (  F4.0.F6.3,  I  3,  F4.0.F6.3,  13,  F4.0) 
IF ( REGNI I ,1 , J )    .EO.   9.0)    GO  TO  45 

C 

C  REAO  CARD  TYPE  7. 
C 

READ   (5,381   AGE TH ( I , J ) , DENTH I  I , J ) , DBHTH!  I , J  I 


3R   FORMAT  (3F5.1I 
43  CONTINUE 
45  CONTINUE 

C 

C  REAO  CARD  TYPE  8. 
C 

READ   (5,50)    (DATE ( I ), 1=1 ,61 
50    FORMAT  (6A4I 

C 

C   PRINT  PAGE   TYPE  4  -   RECORD  OF  VALUES   READ  BY  THIS  ROUTINE. 

C 

WRITE  16,601 
60    FORMAT    ( 1H1 ,///,61X, 11HPAGE    TYPE  41 
WRITE  (6,65) 

65  FORMAT   ( lHO,39X,53HRgCORD  OF  MANAGEMENT  DECISIONS  AND  CURRENT  COND 
1 ITIONS) 
WRITE   (6,70)    ( FORET ( I ) , I = 1 , 1 9 ) 
70   FORMAT    (1H   , 2 9 X , 1 8 A4 , A2 , / / 1 

WRITE    16,751  NBK.NCMP 
75  FORMAT   (IH   , 1 0  X , 1 8  HNU  MB  E  R  OF  BLOCKS  - , I  3 ,  32X ,  24HNUMBER  OF  COMPARTM 
1ENTS  -, 14) 
WRITE    (6,80)  MIN.NWGP 
80  FORMAT   ( 1  HO , 1  OX , 3 1 HM I N I M J M  AGE  FOR   GROWING  STOCK  - , I  3 , 1 9X , 26HNUMBE 
1R  OF  WORKING  GROUPS  -,I4) 
WRITE    (6,85)  BFMRCH.TIME 
85   FORMAT    ( 1  HO , 1  Ox , 3 7 HM I N I M J M   M   BD.    FT.    FOR   GROWING   STOCK  -,F5.1,11X, 
134HLENGTH  OF   PLANNING  PERIOD,   YEARS  -,F4.0,/) 
WRITE  (6,901 

90  FORMAT   ( 1H0,55X,72H»-  ---------WORKING  GROUP 

 *) 

WRITE    (6,95)    I  I WGPNMI  I  ,  J  I  , J  =  l,3  I  , 1 =1, NWGP ) 
95    FORMAT    (1H    , 5 5 X , 5 ( 3 A4 , 3 X ) I 

WRITE    (6,100)    ( POOR! I  I , 1  =  1, NWGP) 
100  FORMAT   (1HO,10X,31HLOWEST   SITE  CLASS  TO  BE  MANAGE D , 14X , F 7. 1 , 4 ( 8X,F 
17.1 ) ) 

WRITE    (6,1051    ( CUCYI (  I  ,  I  =  1 ,NWGP) 
105   FORMAT   ( 1H0, 10X .30HLENGTH  OF  CUTTING  CYCLE,   YEARS, 15X,F7. 1 ,4( 8X,F7 
1.1)) 

WRITE    (6,1101    ( ADJ ( I >  » I  =  1 »  NWGP ) 
110   FORMAT   ( 1H0, 10X, 34HLENGTH  OF   ADJUSTMENT  PERIOD,   YEARS, 11X,F7. 1 ,4(8 
1X.F7.1) ) 
WRITE    (6,115)    ( DELAY! I ) , 1=1, NWGP ) 
115  FORMAT    I 1H0, 10X, 37HEXPECTED  DELAY    IN  REGENERATION,   YEARS, 8X,F7. 1,4 
1 (8X.F7.  1  I  ) 
WRITE    (6,120)    (THIN! I ), 1=1, NWGP) 
120  FORMAT   ( 1H0, 13X.35HSTOCKI NG  LEVEL   FOR    INITIAL   THINNING, 10X,F7. 1 ,4( 
18X, F7.  1  I  I 
WRITEI6.125)    ( DLEV ( I ) , I = 1 , NWGP ) 
125  FORMAT    I 1H0, 10X.36HST0CKI NG  LEVEL ,   SUBSEQUENT   THINNINGS, 9X,F7.1,4( 
18X.F7.1) I 
WRITE    (6,1301    I COMBF!  I  ), I =1, NWGP ) 
130   FORMAT    I 1H0. 10X.33HMIN1MJM  COMMERCIAL   CUT ,    M   BO.    F T . , 1 2X , F 7. 1 , 4 ( BX 
1  ,F7.  1  I  I 

WRITE    16,135)    (COMCUI I  I , 1  =  1 , NWGP I 
135    FORMAT    I 1H0, 10X.31HMI NIMUM    COMMERCIAL    CUT,    CU.    F T . ,  1 4X , F 7 . 1 , 4  I  8 X , F 
17.1) ) 

WRITE    (6,140)    (RINT(I), 1=1, NWGP) 
140   FORMAT    ( 1  Ho , 1 0 X , 3 4HL E NGr H   OF   PREDICTION   PERIOD,    YE ARS,11X,F7. 1,4(8 
IX, FT..  1) ) 

WRITE  (6,1501 
150  FORMAT   ( lHO, // , 1 1 X .23HCJBI  C   FEET    IN  HUNDREDS . ) 

RETURN 

END 


Subroutine  INIT 

SUBROUTINE  INIT 

C 

C   TO  INITIALIZE   VARIABLES  THAT   APPLY  TO  WORKING  CIRCLE. 

C 

COMMON  AD0,AGE(2I,AGE0,BA(2I,BAS(2I,BAS0,BAST,BAUS,BFMRCH,BFV3L, 
1CFV3L,DATE(6I,DBH(2), DBHE , D8H0, DBHT , OEN ( 2),DEN3,DENT,DMJS,F8A(2), 
2FCTR(2),FDM(2),FDNI2),FHT(2),F0RET(19),FVL(2),HT(2),HTCUM,HTS0, 
3HTST,KAK,KN0,MIN,MNK, NBK, NCMP,NSuB,NwGP,POBHE,PRET, PRODI  2), REST, 
4SAVE,SBARB,SBARE,SBARG,SBAS, SITE, SLAND,TBA(2),TDM(2),TEM, TIME, TMBR 
5,TMPO,T0T|2),TOT0,T0TT,TVL(2l,VDM!2),VLUS,DMR(2) 

COMMON  ABFAG(5,15),ACINT(5),AOJ(5),AGETH(5,14),ALLCF(5,14),AL0WC(5 
1),ALWBF(5I,AMCAG(5,15),ANCUTI5,14),AREA[5,14),BDMAI(5),8FAGE(5,15I 
2 ,8F I  NT  I  5 ) , CFAGE (5,15),CFBF(5,14),COMBF(5 I , COMCU ( 5 ) , CUCY ( 5 ) ,CUINT(5 
3I,:UMAI(5],DBHTH(5,14),DELAYI5),0ENTH(5,14),DLEV(5),FNBD(5I, 
4FNCU(5 I .GROWS I5,2,14),GR0WC(5,2,14),GVLBF(5),GVLCUI5),INVL(5,3,14) 
5,NSI(5),OPBD(5),OPCUI5),PAIB0(5),PAICU(5) .POOR  I  5), REGN (5, 3, 14), 
6RINT(5),SARSPI5I,SBFI5I,SHELT(5,2,14),SHWDI5,2,14),SMCI5I,SMSP(5), 
7SUBBF(5,14),SUBCF(5,14),SUMCF(5),SYST(5),THIN(5),VLLV(5,3,14l, 
8WGNJM ( 5 ) , WGPDES ( 5, 20),WGPNM(5,3),SPNUM(5),TPB(5,7),PASP(5,7) 

COMMON  ACBAR(7),ARBK(7I,BARSI(7,14I,BFtH(7,27),CMTH(7,27),CUTA(7,2 
17),:UT8(7,27),HELPI7,27),NSBK(7),0PENI7,27),PBRSI(7,14),PDCFN(7,27 
2I,PDCFR(7,27),PSPlT17,27I,puNC(7,27),SARETYI7,35),SLVG(7,27),SPLT( 
3  7,27I,TMTY(7I,UNCML(7,27),PABR(7),PARTYI7,35) 

COMMON  ACFNL(5,7,15l,ACRGN(5,7,15l,ACsI(5,7,14),ACSP(5,7),GRBD(5,7 
1,15I,&RMCI5,7,15I,PS(5,7,14),STYP(35),TYPNM135,5),PASI(5,7,14) 

C 

COMMON  /BLKD/   I  J, IK.KI .VOL.TVOL 

C 

IJ  =  0 
IK   =  0 
XI    =  0 
MNK   =  0 
NSUB   =  0 
SBARB  =  0.0 
SBARE  =  0.0 
SRARG  =  0.0 
SLAND  =  0.0 
TEM  =  0.0 
TMBR  =  0.0 
TMPO  =  0.0 
TVOL   =  0.3 
VOL  =  0.0 


2  4 


DO  5   1=1, NBK 
ACBARI I  )    =  0.0 
AR8KII)   =  0.0 
NS8KI  11=0 
PABR (II   =  0.0 
TMTYII  I   -  0.0 
DO  5  J=l,]( 
PARTY! 1. J)   =  0.0 

5  saretyi I , ji  =  o.o 

DO  10   1  =  1  .15 
10  STYP  I II   =  0.0 

no  lb  i=i,nwgp 

4C I MT( I  I   =  0.0 
ALOWCI I  I    =  O.C 
ALWBF ( I )    =  0.0 
BDMAl  I  1  I    =  0.0 
8F  I  NT  (  I  I    =  CO 
CUI NT  III    =  0.0 
CUMAI  (II   =  0.0 
FN30III    =  0.0 
FNCU! II    =  0.0 
OP80! II   =  0.0 
OPCU!  II   =  0.0 
PAIBDI1)   =  0.0 
PAICU(l)    =  0.0 

systiii  =  o.o 

00  15  J=l .NBK 
ACSPdi  JI    =  0.0 
PASP! I , JI    =  0.0 
TPS !  I  »  J  I    =  0.0 
DO  15  K=l ,14 
4CS  I  (  I  .  J.K  I   =  0.0 
P4SI 1  I , J , k i    =  0.0 
PS( I . J,K)    =  0.0 
15  CONTINUE 

DO  20  UliNWGP 
00  20  J=1,NBK 
DO  20  K=l,15 
4CFNLI I , J . K |  =0.0 
ACRC-NI  I  ,  J.K)   =  0.3 
GRBD(I,J,K)   =  O.C 
20  GRm; ( I . J.K)    =  0.0 
DO  25   1=1, NBK 
DO  25  J=l,14 
BARSI ( I , J  I   =  0.0 
PBRSI I  I  ,  J  I   =  0.0 
25  CONTINUF 

DO  30  I=1,NWGP 
GVLBF (  I  I    =  0.0 
GVLCU! I  I   =  0.0 
NSl ( I  I   =  0 
SARSP(I)   =  0.0 
SBF I  II   =  0.0 
SMCUI    =  0.0 
SMSP(I)   =  0.0 
SUMCF(I)    =  0.0 
DO  30  J=l,14 
4LLCFI I  ,JI   =  0.0 
ANCUTII.JI   =  0.0 
4RE4I I , J  I   =  0.0 
CFBF 1 1 , J)   =  0.0 
SUBBFII.J)   =  0.0 
SUBCF! I , JI    =  0.0 
30  CONTINUE 

DO  35  I=1,NWGP 
DO  35   J  =  l  ,  15 
ABFAGII.JI    =  0.0 
4MCA&I I  , J  I    =  0.0 
BFA5E! I , JI   =  0.0 
35  CFASE ( I , Ji   =  0.0 
00  40   1=1, NBK 
DO  40  J=l,27 
BFTHI I , J  I    =  0.0 
CMT-M  I  ,  J)   =  0.0 
CUT4 ( I , J  I 
CUTB I  I , JI 
HELP! I , J  I 
OPEN ( I , J  I 
POCFNI [ ,JI   =  0.0 
POCFK ( I , J  I   =  0.0 
PSPLTI I , J  I   =  0.0 
PUNCi I  ,  J)   =  0.0 
SLVG1I.J)   =  0.0 
SPL  T ( I , J I    =  0.0 
UNCMLII.JI   =  0.0 
40  CONTINUE 

00  45  1=1,2 
B4( I  I   =  0.0 
FCTR(I)   =  0.0 
PROD ( I  1=0.0 
VDM(I)    =  0.0 
45  CONTINUE 

00  50  1=1, NBK 
DO  50  J=l,2 
DO    50  K=l,14 
GROWS ( I , J.K)    =  0.0 
GROWCII.J.KI    =  0.0 
SHE  LT ( I , J . K )    =  0.3 
SHWO(I.J.K)   =  0.0 
50  CONTINUE 
RETURN 
END 

Subroutine  SCAN 

SUBROUTINE  SCAN 

C 

C  TO  MAKE  PRELIMINARY  EX4MIN4TI0N  OF  INVENTORY  RECORDS ■ 
C 


0.0 


0.0 
0.3 


COMMON  Ann, AGEI2I, AGE O.BA(2),BAS(2>,BAS0, BAST, BAUS.BFMRCH.BFVOL, 
lCFvaL,0ATF(h),1KHI2l, DBHF ,DBHO,DBHT,nEN{ 2 )»DEN0»DENT,0MUS»FBA(2). 
2FCTRI2l,FTM(?),F0NI2I.FHri2),FnRCT(19),FVL(2),HT(2>,HTCUM,HTSD> 
311  TS  T  ,KAK  ,  KNO,  MI  N  ,  MNK ,  NBK ,  NC MP ,  NS  J B ,  N W GP ,  p DBHF ,  P R E  T ,  P 3  OD (  2  I  .RE  ST, 
4  SAVE , SB ARB, SB  ARE, SRARG, SBAS.S ITE, SL4NO,TBAl2),TOM(2),TEM,TIME,TM8R 
5,rMPn.T0T(2).TOT0.TOTT,TVLI2l,V0MI2),VLUS,OMR(2) 

C'IMMJN  ABFAgI5,15).ACINTI5I,ADJI5),A&ETHI5,14),ALLCF(5,14),4l:)WC(5 
ll,ALWP,F(5).AMCAG(5,15l,ANCJTI5,14l,AREAI5,14l,BnMAI(5),BFAGE(5,15l 
2  ,HF  I  NT  I  5  I  ,CF4CF  (r>,l5),CFBF(5,14l,C0MBFt5)  , COMCUI  5)  ,CUCY(5I,CUINTI5 
3l,:jM4II5),0BHTH(5,14l,DELAY(5],DENTH(5,14l,DLEV(5I.FN8D(5), 
4FN;U(5l,GRnwn(5,;',l4l,GRnwC[5,2,U).GVLBF(5>,GVLCU(5l,INVl(5I3,14) 
5,NSI(5),OPBDI5l,OPCU(5l,P4IBO(5l,PAICU(5 I .POOR  I  51, RE GN 15, 3, 14). 
6RINTI5I,SARSPI5I,SPF(5),SHELT|5,2.14),SHWD(5,2,14I,SMCI5),SMSPI5], 
7SUBBF(5,14),SUBCFI5,14)  ,  SUMCF  (  5  I  ,SYST(5I,THINI5).VLLV(5.3,1<(). 
eWGNUM(5l,WGPDES(5,20l,WGPNM(5,3l,SPNUMI5l,TPB(5,7),P4SP|5,7l 

COMMON  AC  BAR (7I.ARBK(7l,HARSI(7,14),BFTH|7,27),CMTH(7,27),CUT4(7,2 
17l,:uTf>(7,27l,HELP(7.27|1NSSK(7).0PEN(7,27),PBRSII7,14l,PDCFN(7,27 
2l,PDCFRI7,27l,PSPLr(7,27l,PUNC(7,27),SARETY(7,35),SLVG(7,27),SPLT( 
37,27l,TMTY(7l,UNr.M.L[7,?7l,PABR(7),PARTY(7,35l 

COMMON  ACFNLI5.7,l5l.ACRGNI5,7,15l,ACSI(5,7,14l,A:SP(5,7),GRBD(5,7 
1,15!.GRMC(5,7,15),PS(5,7,14I,STYPI35),TYPNM|35,5),PASII5,7,14I 

COMMON  /OPT/   OPTION, I c T 9 

READ  INVENTORY  RECORDS  FROM  CARD  TYPE  9  TO  COUNT  THEM  BY  BLOCK.  TYPE, 
ETC.    LAST  RECORD   IS  CARD  TYPF   10  WITH   IBK   =  99  TO  STOP  PROCESSING. 

10  READ   IICT9.15)    IBK, K0MP,ISUB.QTR1,QTR2, SECT, TOWN, RANG.SITE.STRY. 

1NTYP, WORK, FISC,  OB  Hill, Hnil.OENIll.AGEIl  I  ,  DMR  ll),nRHI2),HT(2),DEN( 

22  I .AGE (2) , DMR (21, ACRE. WHEN 
15  FORMAT  (I2,I4,I3,3A3,2A4,F3.0,F1.0,I2,F1.0,F4.0,F3.1,F3.0,F5.0,F3. 

10,F2.1,F3.1,F3.0,F5.0,F3.0,F2.1,F5.1,F4.0) 
IF( IBK   .EO.   991    GO   TO  50 

SPLTI I BK.NTYPI    =    SPLT ( I BK, NTYP]    ♦  1.0 

IFIACRE   • GT .   O.OI   GO  TO  20 

PSPLTI IBK. NTYP)    =   PSPLTI IBK.NTYPI    *  1.0 

GO  TO  22 

20  S4RETYI I BK.NTYPI    =   S ARE T Y I  I BK , NT YP I 

PARTY  I  I BK , NT YP)    =    PARTY! IBK, NTYP! 

TMTY  (  I  BK  I    =    TMTY  I  I  RK  I    »•  ACRE 
22   ISI    =    (SITE   <■   4.51    «  0.1 

IF (  I  SI    . LT.    II    GO    TO  10 

I F ( NTYP   . LE.   25)   GO  TO  33 

IFIACRE   • EO.   0.0)   GO   TO  25 

B4RSI  ( IBK, I  SI )   =   B4RSI ( I BK, IS  I  I  ♦ 

GO  TO  10 

25  PBRSI I  I BK , IS  I  I   =  PBRS I ( IBK, IS  I  I  ♦ 

GO  TO  10 
30   IFINTYP   .GT.  0 
IF  I NTYP    .GT.  5 
IFINTYP    .GT.  1C 


ACRE 
ACRE 


AND.    NTYP    .LT.    61    KAK   =  1 
AND .    NTYP    .LT.    Ill    KAK    =  2 
.AND.    NTYP    .LT.    16)    KAK    =  3 


IFINTYP  .GT.  15  .AND.  NTYP  .LT.  ?ll  KAK  =  4 
IFINTYP  .GT.  20  .AND.  NTyP  .LT.  261  KAK  =  5 
IFIACRE   .EO.   0.01   GO   TO  35 

4CSI  I  K4K,  I BK, I  SI  1    =    ACSI  (KAK,  IBK,  ISI  I    ♦  ACRE 
PASP I KAK, 10K)    =    PASPI KAK, IBK I    *  ACRE 
GO  TO  40 

35    PSI KAK, I BK, I  SI  )    =    PS  I KAK,  I BK,  IS  I  )    ♦  1.3 
40   IFISITE   • GE .    POORIKAK))   GO  TO  10 

IFIACRE   .EO.   0.0)   GO  TO  45 

UNCML  I  IBK.NTYPI    =  'JNC  ML  I  I  BK  .  NTYP  I    *  ACRE 

GO  TO  10 

45   PUNC! IBK.NTYPI    =    PUNC I  I BK  *  NTYP I    ♦  1.0 

GO  TO  10 
50   1FIICT9    . NE .    51    REWIND  ICT9 

C 

C  COUNT  NUMBER  OF  SITE  CLASSES  FOR  EACH  WORKING  GROUP. 
C 

DO  95  I=1,NWGP 

CD  =  POORIII    «  0.1 

DO  90  K  =  l  ,14 

M   -    15    -  K 

AB    =    M    +  1 

IFIAB   .LE.   COI    GO   TO  95 
DO  85  J=1,NBK 

IF1ACSI ( I , J, Ml    .ST.   0.3)   GO  TO  8C 

IF(PS(I,J,M)    .GT.   0.0)   GO   TO  80 

GO  TO  85 
80  NSI I  I )    =  AB  -  CD 

GO  TO  95 
85  CONTINUE 
90  CONTINUE 
95  CONTINUE 

DO  130  I=1,NWGP 

DO   120  K= 1 , 14 

IF  I REGNI I ,? ,K)    .GT.   0.3)   GO  To  125 
123  CONTINUE 

GO  TO  130 
125   SYSTII 1=1.0 
130  CONTINUE 

RETURN 

END 


Subroutine  MAPS 


SUBROUTINE  MAPS 


C   TO  COMPUTE   AREAS   FROM  TYPE  AND  s u BC 0" " ART M E N T  MAPS. 


COMMON  ADD. AGE  I  2  I 
lCFVOL.OATE 16  I ,OBH 
2FCTR ( 2  I  ,FDM| J ]  ,FD 
3HTST,KAK,KN0,MIN, 
4SAVE , SBARB, SB4RE  . 
5  .  Tmpo  .  TOT  I  2  I , TOTO 

COMMON  4brAGI5,i5 
1) .ALW8FI5I , A  MC  AG  I 
2 . BF I  NT  I  5  I , CF  AGF I  5 


.AGE0,BA(2I.8ASI?],BAS3. BAST, BAUS.BFMRCH.BFVOL, 
121, DPHE,DBH0,DBHT,DENI2),DEN0, DENT, DMUS,F8AI2), 
N(2l,FHri?),F0RET(19),FVLI2),HT(2l,HTCUM,HTS0, 
MNK, NflK.NCMP,NSJB,NWC.P,PDBHE.PRET.PR0D(2l. REST. 
SRARG.SBAS,Sir:,SL4ND.TPA(2l,T0M(2),TEM,TIME,TMBR 
, TOTT.T/LI 21 ,VDM( 21 , VLUS,DMR(  2 ) 

l,ACINr(5),ADJI5l,AGETHI5,14),ALLCF(5,14l . 4LQWC ( 5 
5,15|,ANCJTI5,14),ARFA(5.14l,B0MAII5l,BFAr,E(5,l5) 
,15),CFBF(5,l4),C0Mt!F(5l,C0MCU(5l,CUCYI5l,CUINT(5 


2  5 


3)  .CUMAI  (51  .0BHTHI5.14 
4F  NC  J(  5  )  .  GROWH  I  5  ,  2  •  14  1 
5.NSI (5) ,0PHD(5I .OPCul 
6RI MT ( 5 ) , SARSP( 5 ) ,SBF ( 
7SU8BF  15,14)  .SUBCFI5,  1 
BWGNUM(5),wr,PDES(5.20> 

COMMON  ACBARI7) ,ARBK( 
171 , :uTB{ 7,27  1 , HELP! 7, 
2  I , PDCFR 17,271 ,PSPLT{  7 
37,27) ,TMTY(7I ,UNCML<7 

COMMON  ACFNLI 5,7, 15  )  , 
1 , 15) ,GRMC (5, 7,15) ,PS I 


),DEHY(5),DENrH(s,14),DLEV(5),FNBD(5l, 
.GRCwC I  5, 2,  14),GvLBF(  5)  ,GVLCU(  5),lNVL(5,3,14) 
5),PAIBD(5I,PAICU(5I .POOR I5),RFGN(5.3.14>. 
5I,SHELT(5.2.14),SHWD(5.2.14).SMCI5>.SMSP(5), 
4).SUMCF(5).SYST15>.THIN(5),VLLV(5,3,14), 
,WGPNM(5,3),SPN'JM(5),TPB(5,7),PASP(5,7) 
7I,BARSI(7,14),BFTH(7,27),CMTH<7,27>,CUTA(7,2 
27),NSBK[7),OPEN(7,27l,PBRSII7,14],PDCFN(7,27 

27>,PUNC(7,27),SARETY(7.35>.SLVG(7,27>,SPLT( 

?7),PARR(7l,P»RTY(7,35) 

CRGN(5,7,15),ACSl(5,7,14),ACSP(5,7),r,RRO<5.7 
.7,14),STYp(35),TYPNM(35,5),PASl(5,7,14) 


DIMENSION  KSUB(36.36I.KTYP(36.36>,ARFSC(30),ARFTY(35),CVR(35),SURT 
1 Y( 30) ,UNI T I  30) ,GRUPI  5  I 

r 

00  5   1=1 » N8K 
DO  5  J=l,35 
5   SAFETY! I , J)   =  0.0 

C 

C   READ  CARD  TYPE  11. 
C 

READ   (5,10)   MAP, SCALE 
10   FORMAT  (I4.F6.4) 

C 

C  REPEAT  LOOP  FOR  EACH  COMPARTMENT. 

C 

DO  500   K0L  =  1 ,NCMP 

C 

C    INITIALIZE   VARIABLES   APPLICABLE  TO  A  COMPARTMENT. 

C 

DO  15  1=1,30 

ARESCI I )   =  0.0 

SUBTY(I)    =  0.0 
15   UN  I T I  I  )    =  0.0 

DO   20  I=1,NWGP 
20  GRJPI I )   =  0.0 

DO  25  1=1,36 

00  25  J=l,36 

KSUBI I , J)    =  0 
25  KTYPI I , J  I  =0 

DO  30  1=1,35 

ARETYI I )  =0.0 

CVR (11=0.0  * 
30  CONTINUE 

ARECP  =  0.0 

BARE   =  0.0 

SARSC   =  0.0 

c 

C  READ  COMPARTMENT   DATA  FROM  CARD  TYPES   12,    13,   AND  14. 

C    LOGICAL    UNIT    3    HOLDS    THE    TAPE    WITH    MAPS    IF    TAPE    IS  USED. 

C 

READ   (3,35)    KBK, KOMP, NROw 
35  FORMAT  (314) 

REAO    (3,40)    I  I  KTYP  (  I  ,  J)  ,  J=l  ,  3b  I  ,  I  =  1  ,NROW  ) 
40  FORMAT  (3612) 

READ   (3, 40)    I (KSUBI I, J) ,J=1, 36), I  =  1 »  NROW ) 

C 

C  COMPUTE   TYPE   AREAS  AND  TOTAL  AREA. 
C 

DO   50    1=1, NROW 
00   45  J=l,36 

IF  I  K  TYP  (  I  ,  J]    .  LE.    01    GO   TO  45 

MNK    =    KTYP ( I , J) 

CVRIMNK)    =    CVRIMNK)    ♦  1.0 
45  CONTINUE 
50  CONTINUE 

00  55  1=1,35 

ARETYI I  I    =  CVRI I )   *  SCALE 

SARETYI KBK, I  1    =    S A R E T Y ( K8K ,  I  )    +    ARETYI  I  ) 
ARECP  =  ARECP  *   ARETY I  I ) 
55  CONTINUE 

C 

C  COMPUTE   AREA  OF  EACH  WORKING  GROUP  AND  DEFORESTED  AREA. 
C 

M  =  1 

N    =  5 

DO  65  [=1,NWGP 
00  60  J=M,N 

GRUP(I)   =   GRUP(I)   ♦   ARETY I  J  ) 
60  CONTINUE 


N 


65  CONTINUE 

BARE    =    ARETY ( 26 )    ♦    ARETYI 27  ) 
AC  BAR ( KBK )   =   ACBAR(KBK)    t  BARE 
DO  70  I=1,NWGP 

ACSPII.KBKI  =  ACSPII.KBKI  *  GRUP(I) 
70  CONTINUE 

ARBK(KBK)    =    ARBK(KBK)    ♦  ARECP 

COMPUTE    SUBCOMPARTMENT   AREAS   ANO  TYPES. 

DO  75  I=1,NWGP 

IFIGRUP(I)    . GT .   0.0)   GO  TO  80 
75  CONTINUE 

I F ( BARE   .GT.   0.0)   GO  TO  80 

MNK   =  0 

GO  TO  150 
80  DO  90  I=1,NR0H 

00  85  J=l,36 

IFIKSUBI I.J)    .LE.   0)   GO  TO  B5 
NOS  =  KSUB ( I , J ) 

UNIT(NOS)    =    UNIT(NOS)    ♦  1-0 

I F ( SUBTY I NOS )    . NE .   0.0)   GO  TO  85 

SUBTY(NOS)    =   KTYP ( [ *  J ) 

B5  CONTINUE 

90  CONTINUE 


no  95  1=1,30 

ARESCI  II    =   UN  I T ( I  )    4  SCALE 
SARSC   =  SA«SC  ♦   ARESC I  I ) 
95  CONTINUE 

COUNT    NUMBER    OF    SUBCOMPARTMENTS    IN    A  8L0CK. 
COMPUTE    INDEX    FOR    PRINTING    SUBCOMPARTMENT  AREAS. 


DO   100  1=1,30 
MNK   =  I 

IFIAPESC(I)  .EO.  0.0)  GO  TO  105 
100  CONTINUE 

1C5    NSBKIKBK)    =    NSBK(KBK)    »    MNK    -  1 
IFIARESCI33)    .GT.   0.0)  NSPK(KBK) 
TEM  =  MNK 
MNK   =   TEM  *  0.5 


NSBKIKBK)    «■  1.0 


PRINT   TYPE   AND  SUBCOMPARTMENT   MAPS,    IF  DESIRED. 
150   IFIMAP   , EQ.   0)   GO  TO  450 

CONVERT  MAP  CODES  TO  DISPLAY  CODE  ANO  RIGHT  JUSTIFY.  OCTAL  CODE  WILL 
VARY   WITH  MODEL   OF  COMPUTER. 

DO  175  1=1,36 
DO   175  J=l,36 

I Fl KTYPI I , J)  .LT .  II  GO  TO  160 
IF  (  KTYP  { 1 1 J  j    .LE.   9)   GO  TO  165 

N  =  C 


N 


1 


160 
165 
170 
175 


KTYP I  I  , J )    *  2907 


KTYP I  I  , J  I 
KTYP I  I , J  I 


185 
190 
195 

200 


KTYPI  I  , J)    =    KTYPI  I  , J  I    -  10 
IF(KTYP(I,J)    .-,T.    91    GO   TO  155 
GO  TO  170 
KTYPII.J)    =  5555B 
GO  TO  175 
KTYPI I , J ) 
GO  TO  175 
KTYP I  I  , J) 
KTYPI I , J  I 
CONTINUE 
DO  200  1=1,36 
DO  200  J=l,36 
IF  I KSUP I  I , J) 
IFIKSUBI I ,J) 
N  =  0 
N  =  N  +  1 

KSUB ( I , J)    =  KSUBI I ■ J  I    -  10 
[FIKSJBII , J)    .GT.   9)   GO  TO  180 
GO  TO  195 
KSUBII.J)   =  5555B 
GO  TO  200 
KSUB (I.J) 
GO  TO  200 
KSUBII ,J> 
KSUBI I , J) 
CONTINUE 


II  GO  TO  185 
9)    Gn   TO  190 


KSUBI I ,JI 


KSUB I  I  , J ) 
KSUBI I  , J  ) 


2937 


PRINT   PAGE  TYPE 


TYPE    AND    SJ8C0MPARTMENT    MAPS    AND  AREAS. 


C   PRINT   TYPE   MAP   AND   TYPE  AREAS. 

C 

WRITE  16,2501 
250  FORMAT   ( 1H1 , / , 62X , 1 IHPAGE   TYPE  51 

WRITE   16,  255  )    I FORET I  I  I , I  =  1 , 19) 
255    FORMAT    (1H    , 3 OX , 1 B A4 , A2 I 

WRITE    (6,260)    KQMP, KBK 
260    FORMAT    (1H    ,49X,  27HTYPE    MAP    OF    COMPARTMENT    NO . , I  4 , 2 5 X , 9H8 LOC K 
112,/) 

DO  270  [•l.t'NROW 

WRITE    (6,265)     I  KTYPI  I  ,  J  I  , J= 1 , 36 ) 
265   FORMAT   |1H  ,28X,36R2) 
270  CONTINUE 

WRITE  (6,2751 

275    FORMAT    (1HO,17X,10HCOVFR    T Y P E , 1 3 X , 5 H A CR E S , 4X , 1 H* , 6X , 1 OHC 0 VE R 
113X,5HACRES,4X,1H*,6X,10HC0VER  TYPE,13X,5HACRES,/) 
DO  285  1=1,10 
J    =    I    ♦    1 5 
N  =   I  +25 

WRITE    1  6,  2301     I ,  ( TYPNMl  I ,K ) ,K  =  l, 5 ) , ARETYI  I  1  , J, ( TYPNMI J,K)  ,K=1 
1 ARETYI J) ,N, 1TYPNMIN.K) ,K«1,5) , ARETYI N) 
2B0  FORMAT   (in   ,  15X,  I  2 .2X ,5A2 , 4X, F12 . 1 , 4X, 1H*,4X, 12, 2X, 5A2,4X,F12 

14 X, 1 H», 4X, 12, 2X,5A2,4X, F12.ll 
285  CONTINUE 

00  295  1=11,15 

WRITE    1  6  ,2901     I  ,  I TYPNMI  I ,K)  ,K=1 , 5  I  , ARETYI  I ) 
290  FORMAT   (1H  , 15X,  I2,2X,5A2 ,4x, F12. 1 ,4X, 1H« I 
295  CONTINUE 

WRITE    (6,300)  ARECP 
300   FORMAT    (1H0,99X, 10 H TOTAL   AR E A , 2 X , F 1 2 . 1 ) 

WRITE  (6.305) 

305  FORMAT   ( 1H0, 39X, 5 7 h»» **»**»♦****« «     ACRES  BY  WORKING  GROUPS 
l*t*t*.*.*t ) 

WRITE    (6,3101     (  ( W&PNM (  1  ,  J  > , J=  1,  3  I  ,  I  =  1 , NWGP ) 
310    FURMAT    IlH0.34X.5t  3A4.3X)  I 

WRITE    (6,315)    (  G'sUP  (I  )  ,  I  =  1 ,  NWGP  ) 
315  FORMAT   (1H   .31X.5IF12. 1.3X)  ) 

WRITE    (6.320)  BASE 
320  FORMAT    ( 1H0. 5X. 18 H DEFORESTED  ACRES  -.F12.1) 

C 

C   PRINT   SUBCOMPARTMENT   MAPS   AND   RELATED  DATA. 

C 

I F ( MNK   . EO.   0)   GO  TO  530 
WRITE  (6,2501 

WRITE    (6,  3501     (FORFTI I ] ■ 1=1, 191 
350    FORMAT    (1H  ,16X,18A4,A2) 

WRITE    (6,355)  KOMP.KBK 
355    FORMAT    I1H    ,45X,  37HSUBC0MPARTMENT    MAP    OF    COMPARTMENT    NO..  14.20X.9H 
1BL0CK  NO. .12./) 


26 


DO  160  I=1,NR0W 

WRITE    16,265)    (KSiJBI  I  ,J),J=1,36I 
360  CONTINUE 

WRITE  (6,363) 

365   FORMAT    I 1H0,16X,RHSUBC0MP. ,6X , 10HC0VFK    T  YPT  ,  1  CX  ,  5HSC  RE  S  ,  4  X  ,  111*  ,  4X  , 
18HSUHC0MP.  ,<>X,  10HC0VFR  TYPE,10X,5HACRES./) 
00  385   1=1, MNK 
J  =   I   ♦  MNK 
HOL   =   SUB T Y I  I  I 
JAM    =    SUB T Y I  J ) 
IFIMOL   .EO.   0)   GO  TO  390 
IFIJAM   .EO.   0)   GO  TO  375 

WRITE    16,3701  1,SUBTY(1),(TYPNM(MPL,K),K=1,5>,ARESC((),J,SUBTY(J), 
L ITYPNMl JAM.K) ,K=l,5) , ARESCIJ) 
37c  FORMAT   (1H   ,  1 9X  ,  I  2 ,  6<  ,  F  3 .  0,  2X ,  5A2  ,  4X ,  F9 .  1 ,  4X ,  1H« .  7X  ,  1 2 ,  6X  ,  F3 .  0,  2  X  , 
15A2 ,4X, F9. 1  I 

GO  TO  3B5 

375   WRITE    (  6,3801    I , S JP T Y ( I ) ,  I T YP NM ( MOL , K I , K =  1 , 5  I , AS E S C (  I  ) 
JRO  FORMAT    (1H   ,  19X  ,  I  2  ,  6X  ,F3.  0,  2X  ,  5A2  ,4X,  F9.  1  •  4X,  1H»  I 
385  CONTINUE 
390  WRITE   (6,3951  SARSC 

395   FORMAT    ( 1H0.82X, 10HTOTAL    AR EA , 2X , F 9 . 1  I 
WRITE  (6,305) 

WRITE    16, 405)    I  I WGPN" I  I , J ) , J= 1 , 3  I ,  1  =  1 , NWGP I 
405    FORMAT    I 1HG, 34X.5 I 3A4, 3X I  I 

WRITE    (6, MCI    (  GR.IP  (  I  ) ,  I = 1 , NWGP ) 
410  FORMAT    I1H  ,31X,5(F1?.1,3X) I 

WRITE    (6,415)  BARE 
415  FORMAT   (1H9,5X,18HDEF0RESTED  ACRES  -tF12.il 

GO  TO  500 

PRINT  PAGE   TYPE   5   -  AREAS   ONLY   IF  MAPS  NOT  DESIRED. 

450  WRITE  (6,2501 

WRITE    (6,255  1    (FORET I  I  I , I =1, 19) 

WRITE    (6,4601    KOMP , KBK 
460    FORMAT    I1H    ,48X,29HTYPE    AR  F  AS    OF    COMPARTMENT  NO. 
1..12I 

WRITE  (6,275) 

DO  465   1  =1  ,10 


,K=l, 51 , 


WRITE    16,280)    I  ,  I T YPNMI  | , K ) , K  =  1 , 5 ) , AR ET Y I  I  ) , J ,  I  T YPNM I  J , 
1ARETYI J ) ,N, ( T YPNMI N,K ),K=1,5I,ARETYIN> 
465  CONTINUE 

DO  468  1=11,15 

WRITE    (6,290)    I , I TYPNMI I ,K I ,K=l ,5 ) , ARETYI I ) 
468  CONTINUE 

WRITE    16,3001  ARECP 

IFIMNK   . EO.   0)   GO  TO  500 

WRITE   (6,470)    ( FORET I  I  I , I  =  1 , 19) 
470  FORMAT   (  1  HO  ,  /  /  ,  1 6X  ,  1  R  A4  ,  A  2  I 

WRITE    (6,475)   KOMP, KBK 
475   FORMAT    (1H    , 2 7 X , 3 4  HSU BC OMP ART MENT S   OF   COMPARTMENT   NO . , I  4 , 2 1 X , 9H BL 0 
1CK   NO. ,12) 

WRITE  (6,365) 

DO  485   1=1, MNK 

J    =    I    ♦  MNK 

MOL   =   SUBTYI  I  I 

JAM    =  SUBTY(J) 

IFIMOL   .EO.   0)   GO  TO  493 

IFIJAM  .EO.   0)   GO  T[J  <,R3 

WRITE    16, 3701    I,SUBTYII),ITyPNMIM0L.K>,K=1,5I,ArESC( I ) , J , SUBTYI J ) , 
H TYPNMI  JAM.K)  ,K=1 ,51  ,  ARES  CI  J) 
GO  TO  485 

480   WRITE    (6,  3831    I . S JRTY ( I ) ,  I T YPNMI MOL , K > , K  =  1 , 5  I  , ARE SC I  I  ) 
485  CONTINUE 
490  WRITE    (6,3951  SARSC 
WRITE  (6,305) 

WRITE    (6,310)    I  I  w-,PNM  I  I  ,  J  )  ,  J=l,  31  ,  1  =  1  ,NWGPI 
WRITE    (6,315)    I GRUP (I ) , I = 1 , NWGP ) 
WRITE   16,320)  BARE 

WHEN   STAND   AREAS   ARE   KNOWN   AND   INVENTORY   DATA   REFER   TO   THE  STAND, 
VALUES  OF   ARESCII),   KBK,   AND  KOMP  MAY   BE  EXTRACTED  AT   THIS  POINT  FOR 
MACHINE    ADDITION   OF   A0FSCI11    TO  APPROPRIATE    INVENTORY  RECORDS. 


500  CONTINUE 

C  GET  WORKING  CIRCLE  TOTALS   FROM  BLOCK  TOTALS. 

00  550  I =1 , NBK 
DO  550  J=l  ,35 
550  STYPIJ)    =   STYP(J)    ♦  SARETYII.J) 
DO  555   1=1, NBK 

SBARB   =   SBARB   ♦  SARETY(I,26) 

SBARG  =   SBARG  »  SARETYU.27) 

SLAND  =  SLANO  <  AR BK I  I  I 

NSUB  =  NSUB  ♦  NSBKII) 

00  555  J=1,NWGP 
555   SMSPIJ)    =   SMSPIJ)    ♦  ACSPIJ.ll 

SBARE  =  SBARB  ♦  SBARG 

DO  558   1=1, NBK 

TEH  =  0.0 

DO  556  J=2S,35 
'556  TEM  =  TEM  ♦  SARETYII.J) 
558    TMPO    =    TMPO    ♦    ARBKlI!    -  TEM 


PRINT  PAGE   TYPE  6  -  SJMMARY  OF  BLOCK   AND  WORKING  CIRCLE  AREAS. 

WRITE  16,560) 
560  FORMAT   I  1  HI , / / / / , 59X , 1 1  HP  AGE   TYPE  61 
WRITE  (6,565) 

565  FORMAT   ( 1H0.44X .43HT0TAL   AREAS  OF   BLOCKS   AND  WORKING  CIRCLE) 
WRITE    16,2551    (FOPETI 11,1=1,19) 
WRITE  (6,570) 

570  FORMAT  (  1  HO  ,  /  /  ,  2  X  ,  HBLOCK  ,  5  X  ,  5HT  3T  AL  ,  5  X  ,  6HNUMBE  R  ,  6  X  ,  3  1 H*  PLANTABLE 
1  ACRES  FOREST  SOIL  •, 7X , 60H««««**»»  FOREST  AND  REGENERATING  BY  W3R 
2KING  GROUPS   **««•*»••  | 


WRITC    (6,575  )    I  I WGPNMI I , J  I , J  =  l,3 I , I =1 ,NWGP) 
575  FORMAT   (1H   ,2X,3H.NO.  ,6X,5HACBES,  4X  .SHSUBCOMPT,  6X,  6HBRUSHY  ,6X, 
l6HjRASSY,7X,5HT0TAL,5X,5(3A4,lX)> 

WRITE  (6,580) 
580  FORMAT  I1H01 

DO   590   1=1, NBK 

WRITE    (6,585)    I , ARBK (  I ) , NSBK I  I ) , SARE T Y I  I , 26 ) , SARE T Y ( ( , 27  I  , 

1ACBAR(I1,(ACSP(K,[ ) ,K=1 ,NW3P ) 
585  FORMAT  UHO,2X,I2,3X,F10.1,4X,|5,4X,Fl0.1,2X,Flo.l,2X,F10.1,2X, 

15  I 3X,F 10. 1  I ) 
590  CONTINUE 

WRITE    (6,595)    SLA NO, NSUB, SBARB, SBARG, SPARE, ISMSPlI  ), 1  =  1, NWGP) 
595   FORMAT    I  1  HO , / / , 3X , 5HT OT AL , F 1 C . 1 , 4 X , I  5 , 4 X , F 1 0 . 1 , 2 X , F 10 . I , 2X , 
IF10.1,5X,5 (F10.1 ,3X) ) 
RETURN 
END 

Subroutine  AREA1 


I  4 , t 4X , 9HBL0CK  NO 


SUBROUTINE  AREA1 

C 

C   TO  COMPUTE   AREAS  FOR  WORKING  CIRCLE  FROM  TOTAL   AREA  OF   EACH  TYPE  IN 
C   EACH  COMPARTMENT . 

C 

COMMON  ADD,AGE(2),AGEO,BA(2),BAS(2),BAS0,BAST,BAUS,BFMRCH,BFV0L, 
1CFV0L,DATE(6) ,DBH( ? ) , DBHE , DBHO, OBHT,DEN(2I,DENO,OENT,DMUS,FBA(2I, 
2FCTR(2),FDM|2),FnNI2),FHT(2l,F0RETI19),FVL(2),HT(2),HTCUM,HTS0, 
3HTST, K AK, KN0,M1N,MNK,N8K,NC MP, NSJB, NWGP, PDBHE.PRET, PRODI  2), REST, 
4SAVE,SB»RB,SBARF, SBARG, SB AS, SITE, SL AND, TBAI2), TDM  121, TEM, TIME, TmBR 
5,TMPO,TOTI2l,TOTO,TOTT,Ti/L(2),vOM(2),VLUS,PMR(2l 

COMMON  ABF4G(5,15),ACINT(5I,ADJ(5),AGETHI5,14I,ALLCF(5,14I,AL0WC(5 
1),ALWBF(5),AMCAG(5,151,ANCUT(5,14),AREAI5,14),BDMAI(5I,BFAGEI5,15) 
2,BFINTI5),CFAGEI5,15),CFBF(5,14),CDMBF(5  > , COMCu I 5),CUCYI5),CUINT(5 
3),:jMAI(5l,DBHTHI5,14),0ELAYI5l,DENTHI5,14),DLEV(5),FNBD(5), 
4FN:uI5),GR0wB(5,2,14),GR0WC(5,2,14),GVLBFI5),GVLCUI5),INVLI5,3,14) 
5,NSII5),0PB0|5),OPCUI5),PAIBD(5),PAICU(5),P00R(5l,REGN(5,3,14), 
6r1nTI5),SaRSP(5),SBF(5),SHELT(5,2,14),SHWD(5,2,14),sMC(5),SMSP(5), 
7SUBBF (5,141 ,SUBCF(5,14I,SUMCF(5>,SYST(5),THINI5),VLLVI5,3,14), 
8WGNUMI 5) , WGP0ES(5,20) ,WGPNM|5,3),SPNUM(5),TPBI5,7I,PASP(5,7) 

COMMON  ACBAR(7),ARBK(7),BARSII7,14),BFTHI7,27),CMTH(7,27),CUTA(7,2 
17I,CUT8I7,27),HF.LP(7,27),NSBK(7),0PEN(7,27),PBRSI(7,14I,P0CFN(7,27 
2I,P0CFR(7,27I,PSPLT(7,27),PUNC(7,27),SARETY(7,35),SLVG(7,27),SPLT( 
37,27I,TMTY(7),UNCMLI7,27),PABR|7),PARTY(7,35I 

COMMON  ACF.NL(5,7,15),ACRGN(5,7,15),ACSI(5.7,14),a;SP(5,7),GRB0I5,7 
1,15),GrMCI5,7,15),PS(5,7,14),STYP(35),TYPNM(35,5),PASI(5,7,14) 

C 

DIMENSION  ARETYI35) ,GRUPI5) 

C 

DO   5    1=1, NBK 
00  5  J=l,35 
5   SARETYI I  ,  J  I   =  0.0 
KOUNT  =  0 
DO   155   K0L  =  1,.NCMP 

C 

C    INITIALIZE    VARIABLES   APPLICABLE   TO   A  COMPARTMENT. 

C 

ARECP  =  0.0 
BARE   =  0.0 
DO  10   1=1, NWGP 
10  GRUPI I )   =  0.0 


READ   AREA   OF   E»CH   TYPE,   ONE   COMPARTMENT   AT   A  TIME. 
DATA  CARD  TYPES   15  AND  16. 

READ    (5,15)    KBK, KOMP 
15  FORMAT  (2141 

READ   (5,20)    I ARETY ( I  I , 1  =  1 , 35 ) 
20  FORMAT  I10FB.1) 

SUM   AREAS   OF   TYPES   TO  GET   COMPARTMENT    AND   BLOCK  TOTALS. 


DO  25  1=1,35 
SARETYI KBK, I ) 
ARECP  =  ARECP 
25  CONTINUE 
M  =  l 
N=5 

00  35   1=1, NWGP 

DO  30  J=M,N 

GRUPII)    =  GRUPIIl 
30  CONTINUE 

M  =  M  +  5 

N  =  N  ♦  5 
35  CONTINUE 

BARE  =  ARETY 126) 

ACRARIKBK)    =  ACBARIKBK) 

DO   40   1=1, NWGP 
40   ACSPII.KBK)    =   ACSPII.KBK)    *  GRUPII) 

AR  BK | KBK )    =    ARBKIKBKI    ♦  ARECP 


SARETYI KBK,  I  1 
ARETY ( I  | 


*    ARETY ( J  ) 


ARETY! 271 

BARE 


PRINT  PAGE  TYPF  5  -  AREAS  OF  TYPES  AND  WORKING  GROUPS  BY  COMPARTMENT. 
KOUNT  CONTROLS   PRINTER  TO  GET   2  COMPARTMENTS  PER  PAGE. 

KOUNT   =   KOUNT   *  1 

IFIKOUNT   ,GT.   1)   GO  TO  35 

WRITE  (6,70) 
70   FORMAT    (1H1,      62X.UHPAGE    TYPE  5) 

WRITE    16,75)    I  FORET I  I ) , I  =  1 , 19) 
75    FORMAT    I 1H0.30X ,18A4, A2) 

WRITE   (6,301   KOMP, KBK 
80  FORMAT   ( 1H0,48X,29HTYPF   AREAS   OF  COMPARTMENT  NO . , I  4 , 2 4X , 9HBL0CK  NO 
1..I2) 

GO  TO  100 
85   WRITE    (6,75)    ( F OK E T (  I  I ,  I  =  1 , 19 ) 

WRITE    (6,95)    KOMP, KBK 
95   FORMAT    I 1 HC  ,  / ,49X,29HTYPE   AREAS   OF   COMPARTMENT   N0.,I4,24X,  9HEL0CK 
1  NO.,12) 
1 00   WRITE  16,105) 


2  7 


105  F  OR  M  4  T    (  1H0,  17X  ,  1  OHCOVER  T YPE , 1 3X , 5H4CR E S , 4X , 1H*, 6X , 1 OHCD VFR  TYPE 
1  ,  13X.5HACRES  ,4X,lH*,6X,13HC0VER  TYPE,13X,sha;res,/I 
00  115   I =1 ,1 D 

J  =  I  «■  15 
N  =   I   <■  2  5 

WRI  TE    (6,1101    I , (TYPNMI I ,K) ,K=1 , 5) , ARETYI I) , J, ( TYPNMI  J,K) ,K=1 ,5) ,  i 
lRETY(J)  tNi  ( TYPNM ( N, K )  » K= 1 »  5  )  ,  ARET Y I N ) 
110  FORMAT   (1H   ,  15X,  I2.2X  ,5A2,4X,  F12. 1 ,4X,  1H*,4X,  I2,2X,5A2,4X,F12.1, 

14X,1H*,*X,I2,2X,5A2,4X,F12. 1) 
115  CONTINUE 

DO   125  1=11,15 

WRITE    (6,120)     I  ,  ( TYPNMI  I  ,K I  ,K=1 , 5 ) , ARETY (  I  ) 
120  FORMAT    I1H   ,  15X  ,  I  2.2X.5A2  ,4X,F12.  1  ,4X,  1H*  ) 
125  CONTINUE 

WRITE    (6,130)  ARECP 
130  FORMAT   (1H   , 102X, 10HT0TAL   AR  E  A,  2x  ,  F  9 .  1  ) 

WRITE  (6,1351 

135  FORMAT    I  1H0 , 39X ,  57H***************     ACRES  AY  WORKING  fiROUPS  ***** 
L  ********** ) 

WRITE    16,1*0)    I  I WGPNMI I , J ) , J  = 1 , 3  I ,  I  =  1 ,NWGP) 
HO   FORMAT    I 1H0, 34X,5 ( 3A4  ,3X )  I 

WRITE    16,145)    (GRUPI I  I , I  =  1 ,NWGP) 
145  FORMAT    I1H   ,31X,5 IF12  .1 , 3X )  ) 

WRITE    (6,1501    BARE  C 
150  FORMAT   ( 1H0, 5X, 18HDEF0P E STE 0  ACRES  -,F12.1)  C 

IFIKOUNT   .60-   2)   KOUNT  =0  C 
155  CONTINUE 

C 

C  GET  WORKING  CIRCLE  TOTALS   FROM  BLOCK  TOTALS. 


00  5   I = 1 , NBK 
SPL II)    =  0.0 
5  CONTINUE 
TMPO  =  O.D 

C 

C  READ  AREAS  OF  BLOCKS  AND  OF  NON-TIMBER  TYPES. 
C   DATA   CARD   TYPES    17   AND  18. 

C 

READ   15,10)    (  AR BK ( I ), 1=1, NBK) 
10   FORMAT    I 7FR. 1 ) 
DO  20  1=1, NBK 

READ    15,15!    I SARETYI  I  ,  J  )  , J=28,35) 
15    FORMAT  (8FB.1) 
2C  CONTINUE 

C 

C   COMPUTE   TOTAL   AREAS   OCCUPIED  BY  TIMBER  TYPES . 

C 

DO  30   1=1, NBK 
TEM  =  0.0 
00  25  J=28,35 
25   TEM   =   TEM  *   SARETYI 1 , J) 

TMTY(T)    =    ARBKIII    -    TEM    -  TmTYII) 
30    TMPO   =    TMPO    *    ARBKIII    -  TEM 


TOTAL   PLOTS  BY  BLOCK. 

00  35   1=1 , NBK 
DO  35  J=l,27 
35   SPL(I)   =   SPL(I)   +  PSPLTII.J) 


DO  200   1=1, NBK 
00  200  J=l,35 
200  STYP(J)    =   STYP(J)    ♦  SARETYII.J) 
DO  205   1=1, NBK 

SBARB   =   SBARB   *   SARETYI 1,26) 

SBARG  =   SBARG  +  SARETY(I,27) 

SL4ND   =   SLAND   ♦  ARBKIII 

DO  205  J=1,NWGP 

SMSP(J)    =   SMSP(J)   +  ACSP(J.I) 
205  CONTINUE 

SBAR6  =  SBARB   *  SBARG 

DO  215   1=1, NBK 

TEM  =  0.3 

DO  210  J=28,35 
210  TEM  =   TEM  +   SARETy I  I , J ) 
215    TMPO    =    TMPO   +    ARBKIII    -  TEM 


C    COMPUTE    TYPE    AREAS    WITHIN    EACH  BLOCK. 


PRINT  PAGE   TYPE  6  -   SJMMARY  OF   AREAS   BY  BLOCK   AND  WORKING  CIRCLE. 


WRITE  (6,240) 
240   FORMAT    I  1 H 1 , / / / / , 5 9 X ,  1 1  HP  AGE    TYPE  6) 
WRITE  16,245) 

245  FORMAT   (IHO,44X,40HTOTAL  AREAS  OF  BLOCKS   AND  WORKING  CIRCLE) 

WRITE    (6,250)    ( FORET (I), 1=1, 19) 
250    FORMAT    I 1HD, 21X, 1BA4, A2 I 

WRITE  (6,255) 

255  FORMAT   I  1  HO , // , 2 X , 5HRL0CK , RX , 5HT OT Al > 1 IX , 31 H*  PLANTA3LE  ACRES 
1ST   SOIL  * , 10X , 60H«*******  FOREST   AND  REGENERATING  BY  WORKING  : 
2S  *********) 
WRITE   (6,260)    I ( WGPNM ( I , J ) , J=l,3) , I=l,NwGP) 
260  FORMAT   (1H   , 2X ,3HN0. , 9X , 5HACRES , 1 2X, 6HRRUSHY, 6X , 6HGR ASSY, 7X, 
15HT0TAL,8X,5 ( 3A4, IX ) ) 
00  275   1=1, NBK 
WRITE  (6,265) 
265  FORMAT  (1H0) 

WRITE    (6  ,270  1    I  , ARRKI  I  I , S A3 ETY I  I , 26 ) , SARETY I  I , 27 ) , ACBAR I  I  )  ,  I  A: 
1,1) ,K=1,NWGP) 

270  FORMAT   ( 1H0, 2X, I  2 , 6X , Fl 0. 1 , 7X , Flo . 1, 2X, F 10 . 1 , 2X , F10 . 1 , 5X, 5 ( 3X , 

ID) 
275  CONTINUE 

WRITE    (6,280)   SLAND,  SBARB, SBARG,  SBARE  ,  (  S'-ISP  (  I  )  ,  I  =  1  ,NwGP  ) 
280   FORMAT  (1HO,//,3X,5HTOTAL,3X,F10.1,7X,F13.1,2X,F10.1,2X,F10.1, 
18X.5 (F10.1 ,3X1  I 
RETURN 

END 

Subroutine  AREA2 


FORE 
ROUP 


SP  (  K 
F10. 


subroutine  area2 

to  compute  type  areas  whfn  compartment  areas  are  not  kno^n. 

common  add,age(2),ageo,ba(2),bas(2),baso,bast,saus,bfmrch,bfvol, 
1cfvol,date(6i,dbh(2),dbhf,dbho,dpht,dfn(2),oeno,dent,dmus,fba(2), 
2fctr(2),f0k(2),f0n(2),fht(2),f0rft(191,fvl(2),ht(2),htcum,hts0, 
3htst,kak,kno,min,mnk,nbk,n;mp,nsjb,nwgp,pdbhe,pret,prodi2),rfst, 
4  save, sb arb, sbare, sbarg, sbas, site, slan0.tbai2), tdm (2), tem, time, tmbr 

5,TMP0,T0T(2)  ,  TOTO.TOTT.TVL ( 2)  ,V0m|2I,VLJS,DMRI2) 

COMMON  ABFAGI5,15I,ACINT(5I,ADJ(5I,AGFTHI5,14I,ALL:FI5,14),AL0WCI5 
1),ALWBF(5I,AMCAG(5,15),ANCUT15,14),AREAI5,14),B0MAI(5) , BF  AGE  15,15) 
2,BFI,NT(5),CFAGE(5,15),CFBF(5,14),C0MBF(5),C0MCU(5),  CUCYI  5  )  ,CUINT  (  5 
3),:UMAII5),DBHTH(5,14),DELAY(5),CENTH(5,14),DLEV(5),FNBDI5), 
4FN;j(5),GR0WB(5,2.14),GR0WC(5,2,14),GVLBF(5),GVLCU(5),tNVL(5,3,14) 
5,NSII5),0PBDI5),0PCU(5),PAIBD(5),PAICU(5),P00R(5),REGN(5,3,14), 
6RINT(5),SARSP(5),SBF(5),SHELT(5,2,14),SHnD(5,2,14),S"C(5),SMSP(5), 
7SU8BF(5,14>,SUBCF(5,14),SU,MCFI5),SYSTI5),THIN(5),VLLV<5,3,14), 
ewGNUM(5),WGPDES(5,20),WGPNM(5,3),SPNI.IM(5),TPB(5,7),PaSP(5,7l 

COMMON  ACBAR(7I,APBKI7),RARSI(7,14I,BFTH(7,27I,CMTH(7,27),CUTA(7,2 
17),;UTB(7,27),HELP(7,27),NSeK(7),0PEN(7,27),PBRSI(7,14l,PDCFN(7,27 
2l,P0CFR(7,27),PSPLT(7,27),PuNC(7,27),SARETY(7,35),SLVG(7,27l,SPLT( 
37,27) ,TMTY(7) ,UNCML( 7,27) ,PABR( 7) .PARTY! 7,35) 

COMMON  ACFNL(5,7,15),ACRGNI5,7,15I,ACSII5,7,H),ACSPI5,7),GRBDI5,7 
l,15),GRMcl5,7,15).PS(5,7,l4),STYPI35),TYPNM(35,5),PASI(5,7,14) 

DIMENSION   SPL I  7 ) 

INITIALIZE    VARIABLES   DEFINED   BY   THIS  SUBROUTINE. 


00  45   1=1, NBK 
I F I SPL ( I )  .EO. 
TEM   =   TMTYI I  I 
DO  40   J  =  l  ,27 
SARETYII.J)  = 

40  CONTINUE 

45  CONTINUE 


0.0)  GO  TO  45 
'   SPL ( I  I 


SARETYI  I  , J  I    *    I PSPLTI  I , J  I 


C   SUM  TYPE   AREAS  TO  GET   BLOCK  AND  WORKING  CIRCLE  TOTALS. 

C 

00  50   1=1, NBK 
DO  50  J=l ,35 

STYP(J)    =   STYPIJi    ♦  SARETYII.J) 
50  CONTINUE 

DO  55   1=1. NBK 

SBARB  =  SBARB  ♦  SARETYt 1.26) 
SBARG  =   SBARG  +   SARETYI 1,27) 


AC8AR ( I )    =   ACBAR I  I  ) 
55  CONTINUE 

DO   65    1=1, NBK 
M   =  1 
N  =  5 

00  65  J=1,NWGP 
00  60  K=M,N 
60  ACSP ( J, I  )    =  ACSP ( J , I ) 
M   =   M   +  5 


*   SARETYI 1,26)    *   SARETYI I ,27) 


SARETYI I , K ) 


N 


N  ♦  5 


65  CONTINUE 

SBARE   =    SBARB   ♦  SBARG 
DO  70   1=1, NBK 
SLAND   =   SLAND   ♦    ARBKI I ) 
00   70  J=1,NWGP 

SMSPIJ)    =   SMSPIJ)    <■  ACSPIJ.I) 
70  CONTINUE 

C 

C  WRITE  PAGF   TYPE   5   -   AREAS  OF   TYPES  AND  WORKING  GROUPS. 

C 

WRITE  16,75) 
75  FORMAT   ( 1H1, //// ,59X, 11HPAGE  TYPE  5) 

WRITE    (6,80)    ( FORETI I ) , 1=1, 19) 
80  FORMAT    I lH0,4fiX,32HAREAS   OF   TYPES    IN   WORKING  CIRCLE/1H  ,27X,18A4,« 
12,/1H0,17X,10HC0VER   TYPE, 1 IX ,5HACRES,6X,1H*,6X,10HC OVER  TYPE,11X,5 
2HACR6S,6X,1H*,6X,10HCOVER  TYPE.11X.5HACRES,/) 
DO   90  1=1,10 
J   =    I    <■  15 
N  =   I   ♦  25 

WRITE    16,85)    I  ,  ITYPNM I  I  ,K  I  , K  =  l, 5) , STYP  I  I  1  ,  J, ( TYPNMI J,K)  ,K=1 ,5  I , 
1STYP(J),N,ITYPNM(N,K),K=1,5),STYP(N) 
85  FORMAT  (1HC,15X,I2,2X,5A2,4X,F12.1,4X,1H*,4X,I2,2X,5A2,4X,F12.1, 
14X,1H*,4X,I2,2X,5A2,4X,F12.1) 

90  CONTINUE 

00  100  1=11,15 

WR]TE    (6,95)    I . ( TYPNM ( I , K) , K=l ,5) , STyPI  I  I 
95  FORMAT   1 1H0, 1 5x , I  2 ,2X ,5A2 ,4X, F12. 1, 4X , 1H* 1 
100  CONTINUE 

WRITE    16,110)  SLANO 
110  FORMAT   ( 1H0.99X, 10HTOTAL   AR E A , 2X , F 1 2 . 1  I 

WRITE  16,120) 

120  FORMAT   (1H0,//,39X,57H***************     ACRES  BY  WORKING  GROUPS  ** 
1*************1 

WRITE    (6,130)    ( ( WGPNM I  I , J  I , J  =  l , 3  I , I  =  1 ,NWGP) 
130    FORMAT    I 1H0,34X,5(3A4,3XI I 

WRITE    16,140)    I SMSPI I  I , I =1 ,NWGP I 
140  FORMAT   (1H   ,31X,5(F12. 1,3X1 ) 

WRITE    (6,1501  SBARE 
150   FORMAT    ( 1  HQ , / , / , / , 5 X , 1 8 HDE FOR E S T E n   ACRES  -.F12.1) 

C 

C  PRINT  PAGE   TYPE  6  -   SJMMARY  OF  AREAS  BY  BLOCK   AND  WORKING  CIRCLE. 

C 

WRITE  (6,200) 
200  FORMAT    (  1H1  ,////, 59X,  HHpAGE   TYPE  6! 
WRITE  (6,205) 

205  FORMAT   (  1 H 0 , 44 X , 40 H TOT AL  AREAS  OF   BLOCKS   AND  WORKING  CIRCLE) 

WRITE    (6,210)    I FORETI  I  )  , I  =  1 , 19  I 
210   FORMAT    |1H   , 27X, 1844, A2 ) 

WRITE  (6,215) 
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215  FORMAT   I 1H0.//,2X,5HBL0CK,BX .5HT3TAL , 1 1 X , 31H»  PLANTA8LE  ACHES  FORE 
1ST  SOIL  «  ,lox ,63H»«»»»«»»   FOREST   AND  REGENERATING  BY  WORK  I NG  GROUP 
2S  ««»*•«•«*) 
WRITE    16,2201    (  (  WGPNMI I , J ) , J  =  l,3> . I  =  1 . NWGP) 
220    FORMAT    UH    , 2 X , 3HN0. , 9X , 5 HACR ES , 111 , 6HBRUSHY , 6X , 6HG< A S SY, 7X , 5HT3T A 
1L.9X.5  I  3  Ac,  ,  IX  I  I 
DO  235   I = 1 , NBK 
WRITE  (6,2251 
225  FORMAT  I1H0I 

WRITE  16,230)  I,ARBK(I),SARETY(I,26),SARETY(I,27),ACBARII),(ACSPIK 
1,11  ,K=1,NWGPI 

230  FORMAT  (1HO,2X,I2,6X,F10.1,7X,F10.1,2X,F10.1,2X,F10.1,8X,F10.1,3X, 

1F10.1,3X,F10.1,3X,F10.1,3X,F10.11 
235  CONTINUE 

WRITE    (6, 2401   SLAND, SBARB, S8ARG, SBARE, I SMSPI I  1 , 1  =  1 ,NWGP) 
2*0  FORMAT  (1HO.//,3X,5HTOTAL,3X,F10.1,7X,F10.1,2X,F10.1,2X,F10.1, 
18X.5 I F 10. 1 ,3X1 ) 
RETURN 
END 


Subroutine  LAIND 

SUBROUTINE  LAND 

C 

C  TO  COMPUTE   AREAS   OF  VARIOUS   SUBDIVISIONS  OF  THE  WORKING  CIRCLE. 

c 

COMMON  AoO,AgE(2I,AGEO,BAI2),BASI2),BASO,BAST,BAJS,BFMRCH,BFVOL, 
1CFV0L,DATEI6I,DBH(2I, DBHE , DBHO, DBHT , DEN ( 2I,0EN0,DENT,DMUS,FBA(2I, 
2FCTRI2),FOM(2>,FDN(2),FHT(2),F0RET(19),FVL(2).HT(2|,rtTCUM,HTS0, 
3HTST,KAK,KNo»MIN, MNK, N8K,NCMP,NSUB,NWGP»PDBHE»PRET»PR0D(2), REST, 
4SaVE»S8ARB»SBARE,SBARG,SBAS, SITE, SLAND, TBA(2I,TDM(2),T EM, TIME»TMBR 
5,TMP0,T0T(2) ,T0TO,TnTT,TVLI2l,VDM(2),VLUS,DMR(2l 

COMMON  ABFAGI5,15],ACINTI5I,ADJ(5),AGETH(5,14),ALLCF(5.14)  .ALOWC  (  5 
11,ALWBF(5I,AMCAGI5,15I,ANCUT(5,1<>),AREA(5,1',I,BDMAI(5I1BFAGE(5,15) 
2,BFINTI5),CFAGE(5.15),CFBF(5,14),C0M8F(5)  ,  COMCUI  5  I,CUCY(5),CUINT(5 
3),;UMAII5).0BHTH(5,14),DELAY(5),0ENTH(5,14),0LEV(5I,FNBD(5), 
4FNCU(5),GR0wBI5,2,14),GR0WC(5,2.l4l,GVLBF(5),GVLCU(5l,INVL(5,3,14) 
5,NSI(5l,OPBD(5>,OPCU(5),PAIBD(5l,PAICU(5>,POOR(5),REGN(5,3,14>, 
6RINT(5I,SARSP(5),SBF(5).SHELTI5,2,14),SHWD(5,2,14I,SMC(5>,SMSP(5I, 
7SUBBF  (  5,14I,SUBCF(5,14),SUMCF(5),SyST(5),THIN(5),VlLV(5,3,14), 
8WGNUMI 5 ) , WGPDES I  5, 201 ,WGPNM(5,3I,SPnUM(5I,TPBI5,7I,PASP(5,7) 

COMMON  ACBAR(7I,ARBKI7),BARSI(7,14),BFTh(7,27),CMTH(7,27),CuTA(7,2 
17),CUTB(7,27),HFLP(7,27),NSBK(7),0PEN(7,27),PBRsK7,14l,PDCFN(7,27 
2I,P3CFR(7,27).PSPLT(7,27I,PUNC(7,27),SARETY(7,35),SLVG(7,27),SPLT( 
37,27),TMTY(7),UNCMLI7,27I,PA8R(7I,PARTY(7,35) 

COMMON  ACFNL(5,7,15I,ACRGN(5,7,15),ACSI(5.7,14),ACSPI5,7>.GRBD(5,7 
1,15),&RMC(5,7,15),PS(5,7,14),STYP(35),TYPNM(35,5),PASI(5,7,14> 

C 

C  COMPUTE   AREAS  NOT   IN  SUBCOMPARTMENTS  OF  KNOWN  AREA. 

c 

DO  5   1=1, NWGP 

00  5  J=l,NBK 
5  PASPII.J)   =   ACSPII.J)   -  P ASP ( I , J ) 

00  10  1=1, NBK 

DO  10  J=l,35 
10   PARTY(I.J)    =   SARETY(I.J)    -  PARTYII.J) 

DO  15   1=1, NBK 

DO  15  J=l,25 
15   TMBR  =  SARETYII.JI   +  TM8R 

DO  20   1=1, NBK 
20   PABRIII    =   PARTY(I,26I    *  PARTYII.27) 

C 

C  SUM  ACRES   BY  WORKING  GROUP,   BLOCK,   AND  SITE  CLASS. 
C 

DO  30   1=1, NBK 

TEM  =   PSPLT(I,26)   ♦  PSPLT1I.27) 
IFITEM   .EO-   0-01   GO  TO  30 
DO  25   J=l ,14 

PBRSIII.J)   =   PBRSKI.J)    ♦   (PABRIII   /   TEM  I 
25  CONTINUE 
30  CONTINUE 

DO  35   1=1, NBK 

DO  35  J=l,14 
35  BARSIIl.J)    =   BARSIIl.J)   *  PBRSKI.J) 

M  =  1 

N  =  5 

DO  45   1=1, NWGP 

DO  40  J=l,NBK 

DO   40  K  =  M , N 
40  TPBd.JI    =  TPBII.JI    »  PSPLTIJ.KI 

M  =   M   ♦  5 

N  =  N  ♦  5 
45  CONTINUE 

C 

C  COMPUTE   AREAS   BY  WORKING  GROUP,    BLOCK ,   AND  SITE  CLASS. 
C 

I F { TMBR   . EO.   0.0)   GO  TO  90 
DO  50  K=1,NWGP 
00  50   1=1, NBK 
DO  50  J=l,14 

IF(TPB(K,I)    .E0>   0.0)   GO  TO  50 

PASIIK.I.J)    =    PASPIK.I)    •    PSIK.I.J)    /  TPBIK.I) 
50  CONTINUE 

00  55   1=1, NWGP 

DO  55  J=1,NBK 

DO  55  K=l ,14 
55  ACSI(I,J,KI   =  ACSIII.J.K)    ♦  PASIII.J.K) 

C 

C  PRINT  PAGE   TYPE   7   -  AREAS   BY   SITE   INDEX  CLASS . 
C 

90   WRITE  (6,100) 
100  FORMAT   I 1H1 ,////, 60X, 11HPAGE   TYPE  7) 
WRITE  (6,1051 

105  FORMAT   (1HO,/,46X,40HOISTRIBUTION  OF   AREA  BY   SITE   INOEX  CLASS) 

WRITE    (6,1101    IFORET(I),  1=1,19) 
110  FORMAT   UH   ,28X,1BA4,  A2I 

WRITE    (6,115)    ( ( WGPNMl I . J ) , J=l. 3) , 1=1, NWGP ) 
115  FORMAT   ( 1H0,//,5X,5HBL0CK, 10X , 10HSITE    INDEX, 6X» 16H0EFORESTED  ACRES 
1,2X,5(3X,3A4) ) 

WRITE  (6,120) 


120   FORMAT  (1H0) 
KOUNT   =  1 
00  155   1=1, NBK 

IF(ARBKd)    .60.   0.0)   GO  TO  155 
KOUNT   =   KOUNT   t  1 
IFIKOUNT   .EO.   4)   GO  TO  125 
GO  TO  135 
125   WRI TE  (6,130) 

130  FORMAT   ( 1H1 , //,56X, 18HPAG6  TYPE  7,  CONT.,//) 
WRITE   (6,115)    ( I WGPNMIK, J  I , J  =  l, 3) ,K  =  1,NWGPI 
WRITE  (6,120) 

135  00   150  J  =  l  ,14 
MNK   =   J   *  10 

WRITE    (6,140)    I , MNK, BARSI ( I , J ) , ( ACSI ( K, I , J ) ,K=1,NWGP ) 
140  FORMAT   (1H   ,6X, 12, 16X.I3, 10X.F10. 1 ,2X,5( 5X, F10. 1 ) ) 

I F ( MNK  .LT.   1401   GO  TO  150 

WRITE  16,120) 
150  CONTINUE 
155  CONTINUE 

WRITE    (6,1601   SBARE, ( SMSPI I  I , 1  =  1, NWGP I 
160  FORMAT   I 1H0,//, 10X, 5HT0TAL, 21X.F12. 1, 2X, 51 3X.F12. 1 1 ) 

C 

C  ASSIGN  PART  OF  DEFORESTED  AREA  TO  EACH  WORKING  GROUP. 

C 

DO  215   1=1, NBK 
TEM  =  0.0 
DO  200  J=1,NWGP 
200   TEM  =  ACSPIJ.I)   +  TEM 

IF( TEM  .EO.   0.3)   GO  TO  215 

DO  210  K=1,NWGP 

FF   =  ACSP I K, I )   /  TEM 

DO  205  J=l  ,  14 

ACSIIK.I.JI    =   ACS  I  IK,  [ , J )    +   BARSIIl.J)    *  FF 
205  CONTINUE 
210  CONTINUE 
215  CONTINUE 

DO  220   1=1 ,NWGP 

00  220  J=1,NBK 

DO  220  K=l,14 
220  SARSPII)   =   SARSPII)   ♦  ACSIII.J.K) 

DO  225  KAK=1,NWGP 

DO  225   1=1, NBK 

DO  225  J=l,14 
225    AREAIKAK.JI    =    AREA1KAK.J)    *    ACS  I  I K AK ,  I , J  I 

RETURN 

END 


Subroutine  GOAL 

SUBROUTINE  GOAL 

C 

C   TO  COMPUTE  GROWING  STOCK  NEEDED  TO  MEET  MANAGEMENT  OBJECTIVES. 

C 

COMMON  ADD.AGEI2I.AGEO,BA(2l,BASI2),BASO,BAST,BAuS,BFMRCH,BFVOL, 
1CFV0L.DATE(6I.DBH(2) , DBHE , DBHO, DBHT , DEN ( 2),DEN0,DEnT,DMUS,FBA(2I, 
2FCTRI2),FOMI2),FDNI2),FHTI 2 ) , FOR ET ( 19 ) , FVL(2).HT(2).HTCUM,HTSO, 
3HTST,KAK,KN0,MIN,MNK,NBK,NCMP,NSJB,NWGP,P0BHE,PRET,PR0DI2),REST. 
4SAVE, SBARB, S8ARE, SBARG.SBAS, SITE, SLAND, TBAI 2  I, TDMI 2), TEM, TIME, TMBR 
5,TMPO,TOTI2),TOTO,TOTT,TVL(2),VOM(2),VLUS,DMR(2) 

COMMON  ABFAG(5,15),ACINT|5),ADJI5I,AGETH(5, 14 ) , ALLCF I  5, 14 ) .ALOWC I  5 

1)  ,ALWBFI5),AMCAG!5,15),ANCUT(5,14),AREA(5,14) , BDMA I  I  5) , BF  AGE ( 5,151 
2,BFINT(  5)  .  CFAGF  (5.15)  ,CFBF(5.l4l.C0MBF(5l,COMCU(5),CLICY(5),CUINT(5 
3I,:UMAI(5),08HTHI5,14),DELAY(5),DENTH|5,14),DLEV(5),FNBD(5I, 
4FN:U(5),GR0W8(5,2,14),GR0WC(5,2,14),GVLBFI5),GVLCUI5),INVL(5,3,14I 
5,NSI(5),0PBD(5I,0PCU(5),PAIBD(5),PAICU(5) ,POOR( 5), RE GN (5, 3,14), 
6RINT(5I,SARSPI5),SBF(5),SHELTI5,2,14),SHWDI5,2,14),SMC(5),SMSP(5), 
7SUBBF(5,14),SU8CF(5,14),SUMCF(5),SYST(5),THIN(5),VLLV(5,3,14), 
8WGNUM(5l,WGPOES(5,20l,wGPNMI5,3),SPNUM(5),TPB(5,7l,PASP(5,7) 

COMMON  ACBAR(7),ARBKI7),BARSI(7,14),BFTH(7,27),CMTH(7,27),CUTA(7,2 
17I,CUTB(7,27I,HELP(7,27),NSBK(7),0PEN(7,27),PBRSI(7,14),PDCFN(7,27 

2)  ,P3CFR(7,27I,PSPLT(7,27),PUNC(7,27),SARETY<7,35),SLVG(7,27),SPLT( 
37,27),TMTY(7I,UNCML(7,27),PABR(7I,PARTY(7,35) 

COMMON  ACFNL(5,7,15),ACRGN(5,7,15),ACSI(5,7,14),ACSP(5,7),GRB0(5,7 
1,15),GRMC(5,7,15),PSI5,7,14),STYP(35),TYPNM(35,5I,PASI(5,7,14) 

C 

COMMON  /BLKA/  ANBDFI151I, ANCUVl 151),BDFC(150I,BDF0I150),CFMC(150), 
1CFMO(150),CYCL,IROT,KAN,P01, PD2 , OUAL I 14I,R0TA,VLBF(14),VLCU(14) 

C 

COMMON  /BLKD/   I  J, I K,KI , VOL.TVOL 

C 

DIMENSION  BFSI15),CMS(15),E0IV(14),EQVCFI14),FACCF(14I,FAC(14), 
1PDCUTU6)  , STACF (141  ,STDAC(14) 

C 

00   600  KAK=1,NWGP 

C 

C  ZERO  VARIABLES  COMMON  TO  ALL  SITES. 
C 

CYCL  =  0.0 
SACCF   =  0.0 
SSTAC   =  0.0 
DO  40  1=1.14 
EOIVI I )   =  0.0 
EOVCFI II  =0.0 
FACCF I  I )   =  0.0 
FAC( I )   =  0.0 
OUAL ( I )   =  O.C 
STACF I  II    =  0.0 
STOAC(I)    =  0.0 
VLBFI  I  )   =  0.0 
40  VLCUII )   =  0.0 
ST3R  =  DLEV(KAK) 

C 

C  COMPUTE   LOOP   INDEXES   FOR  NUMBER  OF   SITE  CLASSES   INCLUDED   IN  GOALS. 
C 

SITE   =  POOR(KAK) 
KSI   =  POOR(KAK)   «  0.1 
KND   =   KSI    ♦   NSI (KAK)    -  1 
IFIKND   .GT.    141    KND  =  14 

C 
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ENTER  FOLLOWING  LOOP  ONCE  FOR   EACH  SITE  CLASS  OF  A  WORKING  GROUP. 

DO  400  KAN=KSI »  K  ND 
PD1  =  INVL (KAK, 1 ,KANI 
PD2  =  INVL  (KAK,Z,KA.NI 
QUA  L ( KAN )  =  SITE 
AGED  =  AGETH ( KAK ( K  AN ) 
D8H0  =  DBHTH ( KAK ,KAN) 
DENO   =   OENTH  t  KAK  f  K AN) 

OETERMINE  OLDEST   AGE   TO  BE  REPRESENTED   IN  YIELD  TABLE. 

DO  *5  NA=1,3 
L  =  *  -  NA 

IF  I REGN (KAK, L, KAN)    .EO.   0.0)   GO  TO  *5 
ROTA    =    REGNIKAK, L, KAN) 
GO  TO  50 
*5  CONTINUE 

50   IFIAgEO  .EO.   0.0   .OR.   AGEO   •  GT  •   ROTA )   GO  TO  *05 
IF ( AREA! KAK, KAN)    . EQ.    0.01    GO   TO  390 

INITIALIZE  VARIABLES  RECOMPUTED  FOR   EACH   SITE  CLASS. 

ACTEM  =  0.0 

BDA I   =  0.0 

BFTEM  =  0.0 

CFAI   =  0.0 

CFTEM  =  0.0 

DO  55  1=1,15 

BFSI I )  =  0.0 
55  CMS! I )   =  0.0 

DO  60  1=1,16 
60  PDCUTI I )   =  0.0 

CYCL   =  CUCYIKAKI 

COMPUTE   YIELD  TABLE  FOR  EACH  SITE  CLASS  OF  EACH  WORKING  GROUP. 
CALL  YIELD 

PRINT  PAGE   TYPE  9   -  ANNUAL  VOLUMES   PER  ACRE. 
WRITE   TABLE  HEADINGS. 

OLE  V ( KAK)   =  STOR 

WRITE  (6,100) 
100  FORMAT   ( 1H1.//.61X, 11HPAGE   TYPE  9) 

WRITE    (6,105)    OUAL (KAN) ,CUCY( KAK I ,THIN( KAK ) ,DLEVI KAK I 
105  FORMAT   I IHO , *1 X , 53HGROW I NG  STOCK  OF  MANAGED,   REGULATED,  EVEN-AGED 
1STANDS/1H   ,*7X,  10HSITE   INDEX, F5.0,  1H,  ,F5.0,  19H-YEAR  CUTTING  CYCLE/ 
21H   , 53X, 1*HDENSI TY   LEVEL-, F5.0, IX ,3HAND, F5.0) 

WRITE    (6,110)    I WGPNMI KAK, J  I , J  =  l , 3 ) 
110  FORHAT   (1HO,53X,16HWORK1NG  GROUP  -  ,3A*,/) 

WRITE  (6,115) 

115  FORMAT   I 1H0,*3X,**HV0LUMES   PRESENT  PER  ACRE  AT   END  OF   EACH  YEAR,/) 
WRITE  (6,120) 

120  FORMAT  ( IHO  » 5*  X ,23HMERCHANT  ABLE  CUBIC  FEE T/ IHO , 64X , *HYEAR / 1H  ,1*X, 
16HDECADE,9X,1H0,9X,IH1,9X,1H2,9X,1H3,9X,1H*,9X,1H5,9X,1H6,9X,1H7,9 
2X, 1H8.9X, 1H9,//  ) 

WRITE  CUBIC   FEET   PER  ACRE   FOR  EACH  YEAR. 


WRITE    (6,1251    K,  I ANCUVI NN) ,NN=1 , 10  I 
125  FORMAT   (1H   ,  I  20  ,  Fl 3 . 1 , 9F10 . 1 ) 
MNK  -  ROTA  *  0.1   -   1.0  +  0.5 
DO  130  J=1,MNK 
NN  =   10  *  J  ♦  1 

WRITE    (6,125)    J. ANCUV INN)  , ANCuVI NN*1 > ,ANCUV<NN*2 ). ANCUVI  NN  +  3 ) , 
IANCUVINN**)  ,  ANCUVI  NN*  5)  ,ANCUVlNN  +  6l,ANCUV(NNt7),ANCUVINNt8], 
2ANCUV( NN  +  9 ) 
130  CONTINUE 

J   =   ROTA   *   0.1   +  0.5 

ANCUVI 1R0T*1 >   =  CFMO(IROT) 

WRITE   16,125)   J.ANCUV I IROTtl ) 


WRITE   BOARD  FEET   PER  ACRE   FOR   EACH  YEAR. 
WRITE  16,135) 

135  FORMAT   I IHO , / // , 55 X , 2 3HTh OUS ANDS   OF  BOARD  FEET,//) 

WRITE    (6.1*0)    K,  I ANBDFI NN ) , NN=1, 10  I 
1*0  FORMAT   (1H  , 1 20 , F 1 3 . 3 , 9F 10 . 3  I 

DO   1*5  J=1,MNK 

NN  =  1M   J  t  1 

WRITE    (6,1*0)    J, ANBDF ( NN) , ANBOFI NN*1 ) , ANBDF(NN*2) , ANBOF (NN+3 I , 
1ANBDF INN**) ,ANBDF(NN+5),ANBDFINN+6)»ANBDF(NN+7)»ANRDF(NN+8). 
2ANBDF ( NN+  9 ) 
1*5  CONTINUE 

J  =  ROTA  *  0.1   ♦  0.5 
ANBDF ( I  ROT  +  1 )   =  BDFO (  I  ROT ) 
WRITE   (6,1*0)   J, ANBDF ( IROTt l | 
COMPUTE   M.A.I.   FOR  EACH  WORKING  GROUP  AND  SITE  CLASS. 

TEM  =  0.0 
REM  =  0.0 

IF(REGN(KAK,2,KAN)  .EQ 
MNK   =   REGN ( KAK, 1 , K AN ) 
GO  TO  165 
160   MNK   =  REGN(KAK,1,KAN) 
165  00  170   1=1, MNK 

TEM  =  TEM  t  BDFC I  I ) 
170  REM  =  REM  +  CFMC I  I ) 
REM  =  REM  «  0.01 
MNK   =   MNK   ♦  1 

8DAI    =  ANBDF ( MNK  I    ♦   (  SHELT ( KAK, 1 , KAN )   *  GR OW B I K AK , 1 , K A M  I 
1(SHELT(KAK,2,KAN)    *  GRO W8 ( K AK , 2 , K AN )    «   PD2)    +  TEM 
BDAI   =   BDAI   /   REGN (KAK, I, KAN) 

CFAI    =    ANCUV ( MNK)    *   0.01    ♦    ( S HW D I K AK , 1 , K AN )    «    0.01    »  GROWCIKAK.l, 


0.0)   GO  TO  160 


DEL AY( KAK ) 


PD1  I 


IAN)  «  PD1I  ♦  (SHWD(KAK,2,KAN)  < 
2EM 

CFAI    =   CFAI    /   REGN ( KAK, 1 , KAN) 
8DMAIIKAK)    =   BDMAI(KAK)    *  BDAI 
CUMA I ( KAK )    =    CUMAI (KAK)    +  CFAI 


GR0WC(KAK,2,KANI 


AREAIKAK.KAN) 
AREAIKAK.KAN) 


C  COMPUTE   ACRES   IN  EACH  AGE   CLASS   WITH   IDEAL  CONDITIONS. 


ANCUTIKAK.KAN)    =    ARE A  I K AK , K AN )    /    R EGN ( K AK , 1 , K AN ) 
CHANGE  VALUE   OF  CLASS   IF   AGE   CLASSES   ARE  NOT   10  YEARS . 
CLASS  =  10.0 

TEM   =   ANCUTIKAK.KAN)    *  CLASS 
IF  I  DELAY! KAK)    .EO.   0.01   GO  TO  183 
IF(REGN(KAK,2,KAN)    .GT.   0.0)   GO  TO  180 
PDCUTI1)    =   ANCUTIKAK.KAN)    *   DELAY  I K  AK ) 
MNK  =    IREGNIKAK, l.KAN)    -   DELAYIKAK)    +   9.5)   *  0.1 
KK    =    MNK    ♦  1 
DO   175    1=2, MNK 
175  PDCUTII)   =  TEM 
TEM  =   MNK  -  1 

TEM   =   REGNIKAK, l.KAN!    -   DELAYIKAK)    -    ICLASS   «   TEM ) 
PDCUTIKK)    =   ANCUTIKAK.KAN)    *  TEM 
GO  TO  190 

1B0  MNK   =    (IREGNIKAK. l.KAN)    ♦   9.5)    *   0.11    ♦  1.0 

DO  185  1=2, MNK 
185  PDCUTI I  I    =  TEM 

COMPUTE   GROWING  STOCK  IN  EACH  AGE  CLASS  WITH   IDEAL  CONDITIONS. 


If 


8FMRCHI    GO  TO  200 


200 
205 


210 
215 


MAX   =    REGNIKAK, l.KAN) 
DO    200    1=1, MAX 
I F I ANBDF I  1 )  .LT 
MID   =  I 
GO  TO  205 
CONTI NUE 
ME  S  =  MID  -  1 
MUD   =   MIN   ♦  1 
DO  210  J=MUD,MES 

SUBCF I KAK, KAN]  =  S UBC F I K AK , K AN  I 
SUBCFIKAK.KANI  =  S U BC F I K AK , K AN ) 
DO   215  K=MID,MAX 

CFBF I KAK , KAN )    =   CFBF I KAK.KAN)  ♦ 
CFBF (KAK. KAN)    =   CFBF( KAK.KAN)  » 
IFIREGNIKAK.2.KAN)    • EQ. 
MAX  =  REGNIKAK, 2, KAN)  ♦ 
IF  I REGNIKAK, 3 , KAN)  .GT. 
DO  2*0  1=1,15 
DO  230  J  =  2,U 
K   =  J   t   10  *   1   -  10 
IFIK   .GT.   MAX)   GO  TO  250 
IFIK   .LT.   MUD )   GO  TO  230 
CMS  I  1  )    =   CMS  I  I )    *    ANCUVIK)    *  0.01 
MID)   GO  TO  230 


+  ANCUVIJ)  *  0.01 
*  ANCUTIKAK.KAN) 

ANCUVIK)    »  0.01 
ANCUT I KAK.KAN ) 
0.0)   GO  TO  220 
1.0 

0.0)    MAX   =    REGNIKAK. 3. KAN) 


230 
2*0 
250 


255 
260 


IFIK  .LT. 
BFSI I )    =   BFSI I ) 
CONTINUE 
CONTI NUE 
DO  255  L=1.15 
8FS(L)   =  BFS(L) 
CMS(L)    =  CMSILI 
CONTI NUE 
DO  260  1=1,15 

ALLCF IKAK.KAN I  =  ALLCFIKAK.KAN)  t  CMSII) 
SUBBF I KAK ,KAN)  =  S UBB F I K AK , K AN  I  ♦  BFS(I) 
GVLBFIKAKI  =  GVLBF I KAK )  *  S U8BF ( K AK , K AN  I 
GVLCu ( KAK )    =    GVLCU ( K  AK )    *    S UBCF (  < AK , K AN  I 


ANBDF ( K ) 


ANCUT ( KAK, KAN) 
ANCUTIKAK.KAN) 


COMPUTE   POTENTIAL   ANNUAL  CUTS   WITH  BALANCED  DISTRIBUTION  OF  AGE 
CLASSES  AND  OPTIMUM  GROWING  STOCK   FOR  OBJECTIVES. 
INTERMEDIATE,   REGENERATION.   AND  FINAL   CUTS  KEPT   SEPARATE  HERE. 


I F I REGN I KAK, 2, KAN)    . EQ. 

DO  280   J=l ,2 

IFIJ   . EQ.    1)   GO  TO  270 

IFIREGNIKAK.3.KAN)  . EQ. 
270   MNK  =   REGN I KAK , J, K AN) 

TEM  =   CFMC I MNK  >    *  0.01 

TMPY  =   BDFC I MNK ) 

IF  I TMPY    .LT.    COMBF (KAK)  ) 

OPBO(KAK)   =  OPBDIKAK)  ♦ 

GO  TO  2B0 
275   IFITEM   .LT.  COMCUIKAK)) 

OPCUIKAK)  =  OPCUIKAK)  ♦ 
280  CONTINUE 

GO  TO  300 
285   MNK   =   REGN IKAK, 1 , KAN)  - 

I F I ANBDF ( MNK )    .LT.  COMBF 

OPBDIKAK)    =   OPBDIKAK)  *■ 

GO  TO  300 
290  TEM  =   ANCUVIMNKI   *  0.01 

IFITEM   .LT.  COMCUIKAK)) 

OPCUIKAK)  =  OPCUIKAK)  ♦ 
300  IFIREGNIKAK.2.KAN)  .EQ. 

DO   310  J=2,3 

IFIJ   .EQ.   3)   GO  TO  302 

IF(REGN(KAK,3,KAN)  .GT. 

GO  TO  303 

302  IF ( REGN I KAK, 3, KAN)    . EQ. 

303  MNK   =   REGNIKAK, J, KAN)  + 
TEM  =   ANBDF I MNK ) 
IFITEM  .LT.   COMBF (KAK)) 
FNBO(KAK)    =   FNBD(KAK)  ♦ 
GO  TO  310 

305  TEM  =  ANCUVIMNK)  »  0.01 
IFITEM  .LT.  COMCUIKAK)) 
FNCUIKAK)    =    FNCUIKAKI  ♦ 


0.0)  GO  TO  285 
0.0)   GO  TO  2B0 


GO  TO  275 
TMPY   *   ANCUT I KAK ,KAN) 


GO  TO  280 

TEM   *  ANCUTIKAK.KAN) 


DELAYIKAK)  t  1.0 
IKAK) )  GO  TO  290 
ANBDFIHNK)    *  ANCUTIKAK.KAN) 


GO  TO  300 

TEM  »  ANCUTIKAK.KAN) 
0.0)   GO  TO  315 


0.0)   GO  TO  310 


0.0)  GO  TO  310 
1.0 


30  TO  305 

TEM   *  ANCUTIKAK.KAN) 


GO  TO  310 

TEM   *  ANCUTIKAK.KAN) 


30 


310  CONTINUE 

315    MNK    =    REGNIKAK, 1 ,KANI    -  3.0 
NR   =  CUCYIKAKI 
Nl    =  AGETHIKAK.KAN) 
00  325   I  =N1 »  MNK . NR 
ACTEM   =   ACTEM   »  1.0 

IF(BDFCII)    .LT.   COMBF ( K  AK ) )   GO  TO  320 

BFTEM  =   BFTEH  »•  BDFC I  1  I 

GO  TO  325 
320  TEM  =  CFHC (I  I   »  0.01 

I F (TEH    . LT.    COHCUI KAK  I  I 

CFTEH  =  CFTEH  ♦  TEH 
325  CONTINUE 

AC  I  NT ( KAK }    =   AC  I  NT ( KAK ) 

BFINTIKAK)    =  BFINTIKAK1 

CUINTIKAKI    =  CUINTIKAK] 


GO  TO  325 


ACTEH 
BFTEH 
CFTEH 


ANCUTI KAK, KAN  I 
ANCUTIKAK.KANI 
ANCUTIKAK.KANI 


C  PRINT  PAGE   TYPE   10  -  GROWING  STOCK  GOALS   Br  WORKING  GROUP   AND  SITE. 
C 

WRITE  (6,350) 
350  FORHAT   ( 1H1 ,//,58X, 12HPAGE  TYPE  10,/) 

WRITE    (6,352  )    QUAL ( KAN) , REGNI KAK, 1 , KAN  I , AREA  I KAK , K AN  I 
352  FORHAT   (  1  HO ,  <il  X,  44HDI  STR  I  B  JT  I  ON  OF  AREA  ANO  GROWING  STOCK  G0ALS/1H 
10.16X.21HF0R   SITE   INDEX  CLASS-, F5.0,11H,   ROT  AT  I  OV- ,  F5  .  0 ,  5  H,   A  ND »  F I 
20.1.35H  ACRES  OF   THIS   SITE  CLASS  AND  GROUP) 
WRITE    (6,110)    I WGPNMI KAK, J  I , J  =  l , 3) 
WRITE  (6,3541 

35*  FORMAT   (  1H0»44X,8HACRES   I  N ,  1 3X ,  1 1 HHLINDREDS  OF/IH  ,23X,9HAGE  CLASS, 
114X, 5HCLASS,16X,7HCU.    FT..17X.9HH   60.  FT.,/) 

IF  I REGN(KAK,2 ,KAN)    .GT.   0.3)   GO  TO  360 

I F ( DELAY ( KAK )    .EO.   0.0)   GO  TO  360 

WRITE    (6,3561  PDCUT(l) 
356  FORHAT   (  1  HO , 2 7 X , 1  HO , 1 4X , F 1 3  .  1  I 
360  DO  364  1=2,16 

J  =   I   -  1 

MNK  =  1   ♦   10  »   I   -  20 
HO   =   HNK   ♦  9 

WRITE    (6,3621   HNK , MO, PDCUT  I  I ) ,CMS ( J ) , BFS  IJ  I 
362  FORMAT   ( 1H0, 24X, 13, 1H-, I 3, 11X.F10. 1, 10X, F15. 1 , 10X.F15 .  1  I 
364  CONTINUE 

WRITE    16,3661    ARE  A ( K AK , K AN ) , ALL CF ( K AK , K AN ) , SUBBF ( K AK , K AN ) 
366   FORMAT    ( 1 HO , / / , 26X , 6HT0T AL S , 1 IX , F 1 0 . 1 , 1  OX , F 1 5 . 1 , 1 OX , F 1 5 . I  I 

IF(REGN(KAK,2,KAN)    .GT.   0.0)   GO  TO  370 

IFIOELAY(KAK)    . EO.   0.0)   GO  TO  370 

WRITE    (6,3691    DELAY ( KAK ) 
368  FORHAT   ( 1H0, // , 1 7X , 80HAGE   CLASS  ZERO  REPRESENTS  CLEARCUT  ACRES  NOT 

1  YET  REFORESTED  BECAUSE   OF  OELAY  OF   ,F4.0,6H  YEARS/1H   , 46HEXPECTED 

2  AFTER   SCHEDULED  REGENERATION  CUTTING.) 
370  DO   375  1=1,15 

BFAGE ( KAK , I )    =   BFAGEfKAK, I)   ♦  BFSII) 
375  CFAGEIKAK.I)    =  CF  AGE ( KAK , I )   ♦  CMS(I) 
390  SITE   =   SITE  t  10.0 
400  CONTINUE 
405  DO  410  I=KSI,KNO 
r    410   SUHCF(KAK)    =   SUHCF (KAK)    ♦  ALLCF(KAK.I) 


COHPUTE   STANDARD  ACRES   FOR  SITE  CLASSES. 

TEH  =  NSI (KAK) 
MNK   =  TEM  *  0.5   ♦  0.5 
MNK    =    MNK    ♦    KSI    -  1 
DO  420   I=KSI ,KNO 

I F ( VLBF ( HNK )    .Eg.   0.0)   GO  TO  415 
FAC(I)    =   VLBF(I)    /  VLBF(MNK) 
STOAC(I)    =  AREAIKAK,!)   *  FAC(I) 
SSTAC  =  SSTAC  ♦  STDAC I  I ) 
IFIFACII)    .EO.   0.0)   GO  TO  415 
EOIVI I )   =   1.0  /   FAC I  I  I 

415   IFIVLCUIMNKI    . EO*   0.0)   GO  TO  420 
FACCFII)   =  VLCU(I)   /  VLCUIHNK) 
STACF(I)    =  AREAIKAK, II    «  FACCFII) 
SACCF   =  SACCF  ♦  STACF  I  I  I 
IFIFACCF(I)    .EO.   0.0)   GO  TO  420 
EOVCF(I)    =   1.0  /  FACCFII) 

420  CONTINUE 


PRINT  PAGE   TYPE   11   -  GROWING  STOCK  GOALS   BY  WORKING  GROUP   AND  SITE. 

WRITE  (6,500) 
500  FDRMAT   I 1H1 , /// ,6 1 X , 1 2HPAGF  TYPE  11) 
WRITE  (6,502) 

502  FOR  HAT   I 1H0, / / , 47X ,  38HGROWI NG  STOCK  GOALS  FOR  WORKING  CIRCLE) 

WRITE    (6,110)    ( WGPNMI KAK, J) , J=l , 3 ) 

WRITE    (6,504)    (FORET(I),  1=1,19) 
504  FORMAT   (1H  , 30X , 18 A4, A2 , / / / / ) 

WRITE  (6,506) 

506  FORMAT   (  1  HO ,  45  X ,  BHROT  AT  I  ON,  1 1 X ,  1 OHCLI .   FT.   TO,  13X,  10HCU.   FT.  TO.lOx 
1.15HM  BD.   FT.  ABOVE) 
WRITE  (6,508) 

508  FORMAT   (1H   ,10X,10HSITE   CL ASS , 10X , 5HACR E S , 12X , 3HAGE , 1 3X , l 3HB0 .  FT. 
1  LIMI T, 10X, 12HR0TATI0N  AGE, 10X, 13HP0.   FT.  LIMIT,///) 
00  512   I =KS I , KND 

WRITE    (6,510)   QUAL(I), AREAIKAK, II, REGNlKAK.l, II, SUBCFIKAK, I), ALLCF 
1 ( KAK, I  ) , SUBBF ( KAK,  I  ) 
510  FORMAT  (1H0,11X,F5.0,12X,F9.1,10X,F4.0,12X,F12.0,10X,F12.0,8X,F14. 

10) 

512  CONTINUE 

WRITE    (6,514)    SARSPI KAK ) ,GVLCU( KAK ) ,SUMCF( KAK)  ,  GVLBFI  KAK) 
514  FORMAT  (1HO,12X,6HTOTALS,9X,F10.1,25X,F13.0,9X,F13.0,7X,F15.0) 
WRITE  (6,5161 

516  FORMAT   ( 1  HO , // , 1 3X , 10 1HCUB I C  FEET   IN  HUNDREDS.   TOTAL  AREA  INCLUDES 
1  ANY  LOW   SITE   ACRES  INCORRECTLY  CLASSED  AS  OPERABLE  TYPES.) 

C 

C  PRINT  PAGE   TYPE   12   -  STANDARD  ACRES   AND  EQUIVALENT  AREAS. 
C 

WRITE  (6,550) 
550  FORHAT    (  1  HI , / / , 60 X , 1 2 HP AGE   TYPE  121 
WRITE  (6,552) 

552  FORHAT   ( 1  HO , / , 47X , 37HC0NVERS 1  ON  OF  AREAS  TO  STANDARD  ACRES) 
WRITE    (6,110)    (WGPNMIKAK, J) ,J=1 ,3) 


WRITE    16,  504  )    I  FOR  E  T I  I ) ,    1  =  1,191 
WRITE  (6,554) 

554  FORMAT   ( 1  HO , 9X , 4HS I TE , 1 3X , 1 1HT0T AL   YIELD, 13X,5HACRES,34X,7HAREA  IN 
1, 13X , 1 3HEQUI VALENT  OF  I 
WRITE  (6,556) 

556  FORHAT   (1H   , 9 X , 5H I NDE X , 1 3 X , 8 HPE R  ACR E , 1 4X , 7H I N  SITE, 12X,9HREDUCTI0 
1 N.12X .BHSTANDARD, 1 2X , 1 3HS  T  ANDAR  D   ACRE ) 
WRITE  (6,558) 

558   FORHAT    (1H   , 9X , 5HC L AS S , 1 3X , 9HM   BD.    FT . , 1 4X, 5HCL ASS , 14X , 6HF ACT  OR , 1 5 
1X.5HACRES , 14X ,13HI N  SITE  ACRES,//) 
DO  562  I=KSI,KND 

WRI TE    (6,560)    OUALI I),VLBF(I),AREA(KAK,I),FAc(l),STDAC(I),EOIV(I) 
560  FORMAT(lHO,8X,F5.0,12X,F9.1,12X,F10.1,llX,F9.5tllX,F10.1,13X,F9.5l 

562  CONTINUE 

WRITE  (6,564) 
564  FORMAT  (1H0.////I 

WRITE  (6,554) 

WRITE  (6,556) 

WRITE  (6,566) 

566  FORMAT   (1H   , 9X , 5HCLAS S , 1 4X , 7HCU .   FT . , 15X, 5HCL ASS , 1 4X , 6HF ACTOR , I 5X , 
15HA:RES,14X,13HIN  SITE  ACRES,//) 
DO  568  I=KSI,KND 

WRITE    (6,560)   OUAL ( I ) ,VLCU( I ) , AREA! KAK , I ) ,FACCF( I ) , STACFI  I ) , 
1EQVCFI I ) 
568  CONTINUE 
600  CONTINUE 

RETURN 

END 

Subroutine  YIELD 


SUBROUTINE  YIELD 

TO  COMPUTE   A   YIELD  TABLE   FOR  EACH  SITE   CLASS  OF  EACH  WORKING  GROUP. 

C OH  HON  AOD , AGE I2),AGE0,BA(2),BAS(2),BAS0,BAST,BAUS,BFMRCH,BFV0L, 
1CFV0L,0ATE(6),DBH(2), D8HE, DBHO, OBHT,DEN(2),DEN0,DENT,DHUS,FBA(2), 
2FCTR(2),FDH(2),FDN(2),FHT(2),F0RET(19),FVL(2),HT(2),HTCUH,HTS0, 
3HTST, KAK, KNO.HIN, MNK, NBK,NCMP,NSJB,NWGP,PDBHE,PRET,PR0D(2), REST, 
4SAVE , SB AR B, SB  ARE ,SBARG, SB  AS  r SITE, S LAND, TBA(2),TDM(2), TEH, TIME, THBR 
5,TMPO,TOT(2),TOTO,TOTT,TVL(2I,VDM(2),VIUS,DMR(2) 

COHMON  ABFAG(5,15I,ACINTI5I,ADJ(5),AGETH(5,14I,ALLCF(5,14I,AL0WC(5 
1),ALWRF(5),AHCAG(5,15),ANCUT(5,1*),AREA(5,14),BDHAI(5) , BFAGE I  5,15) 
2 ,BF  I  NT  I  5 ) .CFAGE 15 , 15 ) ,CFBF(5,14),C0HBF(5),C0HCU(5),CUCY(5),CUINT(5 
3),:UMAI(5),DBHTH(5,14),0ELAY(5),DENTH(5,141,DLEV(5I,FNBD(5), 
4FNCU(5),GR0WB(5,2,14),GR0WC(5,2,14),GVLBF(5),GVLCU(5),INVL(5,3,14I 
5,NSI(5),0PBD(5),0PCU(5I,PAIBD(5),PAICU(5), POOR ( 51, RE GN (5, 3, 14), 
6RINT(5I,SARSP(5),SBF(5I,SHELT(5,2,14),SHWD(5,2,14),SHC(5),SMSP(5). 
7SU8BF(5,14I,SUBCF15,14I,SUMCF(5),SYST(5),THIN(5),VLLV(5,3,14)I 
BWGNUHI 5 ) , WGPDES I  5, 20) ,WGPNH(5,3),SPNUM(5),TPB(5,7),PASP(5,7) 

COMMON  ACBAR(7),ARBK(7I,BARSI(7,14),BFTH(7,27),CHTH(7,27),CUTA(7,2 
17),:UTB(7,27I,HELP(7,27),NSBK(7),0PENI7,27),PBRSI(7,14),PDCFN(7,27 
2I,PDCFR(7,27),PSPLT(7,27),PUNC(7,27),SARETY(7,35),SLVG(7,27),SPLT( 
37,27),THTY(7) , UNCHLI7 ,271 ,PA8R(7),PARTY(7,35) 

COHMON  ACFNL(5,7,15),ACRGN(5,7,15),ACSI(5,7,14I,ACSP(5,7),GRBD(5,7 
l,l5).GRMC(5t7,15),PS(5,7,14l,STYP(35),TYPNHI35,5),PASI(5,7,14) 

COMMON  /BLKA/  ANB0F(151), ANCUVI 151), BDFC(150),BDFD(150),CFMC (1501, 
1CFM0(150),CYCL,IR0T,KAN,PD1,PD2,QUAL(14),R0TA,VLBF(14),VLCU(14) 

COMMON  /BLKD/    I  J  ,  I  K,K  I , VOL, TVOL 

INITIALIZE   VARIABLES  RFCOMPUTED  FOR  EACH  SITE  CLASS. 


ADDHT  =  0 

.0 

BDFT  =  0. 

0 

CF  H  T   =  0. 

0 

HTCUM  *  0 

.0 

JBDFC  =  0 

JBDFO  =  0 

JBOFT   =  0 

JCFMC  =  0 

JCFMO  =  0 

JCFMT   =  0 

JSBO   =  0 

JSHC   =  0 

JSTF   =  0 

DO  10  1=1 

,150 

BDFC(I)  = 

0.0 

BDFO(I)  = 

0.0 

CFMCII)  = 

0.0 

CFMD(I)  = 

0.0 

DO  15  1=1 

,151 

ANBDF 1  I ) 

=  0.0 

ANCUVI I  1 

=  0.0 

Nl    =  AGED 

N  =  AGED 

OBTAIN  HTSO  AND   TOTAL  CU.   FT.   PER  ACRE. 

BASO  =  DENO  *  0.0354542   *  DBHO  *  DBHO 
I J  =  9 
CALL  WORKGP 

CONVERT   TOTAL  CU.    FT.    TO  OTHER  UNITS. 

I F I DBHO   . LE .   4.991    GO  TO  25 

KNO  =  1 

BAIll   =  BASO 

VDH(l)   =  DBHO 

I  J  =  2 

CALL  WORKGP 

BDFO(N)    =  TOTO  «  PRODIll 
CFMO(N)   =  TOTO  *  FCTP(l) 
25  REST  =  THINIKAK) 

ENTER  LOOP  FOR  ALL  REMAINING  COMPUTATIONS  AND  PRINTOUT. 

DO  200  1=1,100 


3  1 


CHANGE   STANDARDS   IF  A  REGENERATION  CUT    IS  DUE . 


30  IFIAGEO  . 
IFI4GE0  . 
IFIAGEO  . 
OLE  V ( K AK  ) 


NE 


ROTA)    GO   TO  60 
REGN(KAK,1,KAN) )   GO  TO  50 
REGNI KAK ,1 ,KAN) )   GO  TO  35 
OLE  V ( K  AK )    «    VLLVIKAK, l.KANI 


REST  =  DLEVIKAKI 

CYCL   =    I NVL I KAK, 1 ,KAN I 

GO  TO  50 

35   IFIAGEO   .NE.   REGNI KAK , 2 , KAN ) )   GO  TO  40 
DLEVIKAK) =  DLEVIKAKI    «  VL LV ( K AK , 2 , K AN  I 
REST  =  DLEVIKAK) 
CYCL   =    INVLI KAK, 2, KAN ) 
GO  TO  50 

40   IFIAGEO   .NE.    REGN I KAK , 3 , KAN  I  )    GO   TO  50 
DLEVIKAK)    =   DLEVIKAKI    »   VLLVIKAK, 3, KAN) 
REST  =   DLEVIKAK  ) 
CYCL   =  INVLIKAK,3,KAN) 

INCREASE  O.B.H.   BY  THINNING  ANO  COMPUTE  POST-THINNING  VALUES. 

50  CALL  CUTS 

JDENT  =    (BAST   /    10.0054542  *  DBHT   »  DBHT  )  )   +  0.5 
DENT  =  JDENT 

BAST  =   0.0054542  «  DBHT  *  DBHT  *  DENT 


BASO)   Gn  TO  55 


IFIBAST  .LT 
BAST  =  BASO 
HTST   =  HTSO 
DENT  =  OENO 
JDENT  =  DENO  +  0.5 
DBHT  =  DBHO 
TOTT  =  TOTO 
BDFT  =  BDF01NI 
CFMT  =  CFMOIN) 
GO  TO  60 
55   IJ  =  10 

CALL  WORKGP 

CONVERT   TOTAL  Cu.   FT.   TO  OTHER  UNITS. 

I F I  DBHT   .LE.   4.991   GO  TO  60 

KNO  =  1 

BA(l)   =  BAST 

VDMIl)    =  DBHT 

I J  =  2 

CALL  WORKGP 

BDFT  =   TOTT  *  PR0DI11 

CFMT   =   TOTT   *   FCTRI 1 ) 

CHANGE   MODE  AND  ROUND  OFF  FOR  PRINTING. 


60  JDENO 
JHTSO 
JTOTO 
JBASO 
JCFMO 
JBOFO 
JBDFO 
JDENT 
JHTST 
JTOTT 
JDENC 
JCFMT 
CFMT  ■ 
I F I JCFMT 
CFMO(N) 


DENO  ♦  0.5 
HTSO   ♦  0.5 
TOTO  ♦  0.5 
BASO  ♦  0.5 
CFMOIN)   ♦  0.5 
BDFOINI    »0.1t  0.5 
JBDFO  «  10 
DENT   ♦  0.5 
HTST   ♦  0.5 
TOTT  ♦  0.5 
JDENO  -   JOE  NT 
CFMT  *  0.5 
JCFMT 

GT.  JCFMO)  JCFMO 
JCFMO 


JBDFT  =  BDFT  *  0.1   ♦  0.5 

JBOFT   =   JBDFT   *  10 

BDFT  =  JBDFT 

BDFT  =   BDFT  *  0.001 

I F I JBDFT   .GT.   JBDFO)  JBOFO 

BDFOINI    =  JBDFO 

BDFOINI    =   BDFOINI    *  0.001 

JBAST  =   BAST  +  0.5 

JBASC   =  JBASO  -  JBAST 

JTOTC   =   JTOTO  -  JTOTT 

JCFMC   =   JCFMO  -  JCFMT 

IFIJCFMC   .LE.   0)    JCFMC  =  0 

CFMCINI    =  JCFMC 

JBDFC   =  JBDFO  -  JBDFT 

IFIJBDFC   .LE.   0)    JBDFC  =  0 

BDFCIN)   =  JBDFC 

BDFCINI    =   BDFCIN)   *  0.001 


SUM  PERIODIC  CUTS  FOR  LAST  LINE  OF  YIELD  TABLE. 

IFIAGEO  .GE.   ROTA)    GO  TO  73 
JSTF   =   JSTF   ♦  JTOTC 
CCFMC  =  CFMCINI   «  0.01 
IFfCCFMC   .LT.   COMCUIKAKI)   GO  TO  65 
JSMC   =   JSMC  *  JCFMC 
65   I F I BDFC I N I    .LT.   COMBF I KAK ) )   GO  TO  70 
JSBD  -   JSBD  t  JBDFC 

PRINT  PAGE   TYPE  8   -  YIELD  TABLE   FOR   EACH  WORKING  GROUP   AND  SITE. 

70   IFII    .GE.   2)   GO  TO  135 


110  FORMAT    (1H0,53X,16HWDRKING   GROUP   -  ,3A4,/1 
WRITE  (6,115) 

115  FORMAT   (1H0,25X,38HENTIRE   STAND  BEFORE   AND  AFTER  THINNING, 28x,26HP 
1ERI0OIC   CUT   AND  MORTALITY) 
WRITE  16,120) 

120  FORMAT    1 1  HO , 9 X , 5 HS T AN 0, 1 0 X , 5HBAS A L , 3X , 7HA V ER AGE , 2 X , 7HA VER AGE , 3x , 5H 
1T0TAL.3X.9HMERCHANT-, 3X , 9 HS A WT I M B E R , 9X , 5 HBA SAL , 4X , 5HT0T AL  ,3x,9HMER 
2CHANT-,3X,9HSAWTIMBERI 
WRITE  (6,125) 

125  FORMAT   (1H   , 10X, 3HAGE.4X, 5HTREES, 3X, 4HAREA.4X, 6HD.8.H. , 3X.6HHEI GHT 
1 ,2X,6H VOLUME, 2X, 1 1 HARLE   VOLUME, 4X , 6HV0LUME , 3X ,  5HTRE  E  s  ,  3x  ,  4HAR  E  A ,  3X 
2.6HV0LUME.2X,  HHABLE  VOLUME  ,  4  X ,  6HV0LUME  ) 
WRITE  16,130) 

130   FORMAT    I1H   ,8x ,7H( YEARS ), 3X, 3HN0. , 2X, 7HS0.   F T . , 4X , 3H I N . , 6X , 3HF T . 

IX, 7HCU.   FT.,3X,7HCU.   FT..4X.9HM  BD.   F T . , 3X, 3HN0. , 2X , 7HSQ.  FT..2X.7 

2HCU.    FT..3X.7HCU.    FT.,4X,9HM   BD.  FT.) 
135  WRITE    (6, 140)    AGEO, JDENO, JBASO, 06H0, JHTSO, JTOTO, CFMOIN), BDFOIN) 
140  FORMAT  llH0,9x,F4.0,4X,I5,2X,I4,5X,F5.1,5X,I3,4X,I5,5X,F6.O,6X,F6. 

13) 

IFIAGEO   .GE.   ROTA )   GO  TO  220 

WRITE    I  6, 145  )    AGEO, JDENT, JBAST,  DBHT, J  HTST, JTOTT, CFMT, B  OF  T.JDENCJB 
1ASC. JTOTC, CFMCIN) , BDFCIN! 
145  FORMAT   (1H  , 9X , F 4 . 0 , 4X , 1 5 , 2X , 1 4 , 5 X , F 5 . 1 , 5 X , I  3 , 4X , I  5 , 5 X , F6 . 0, 6 X , F6 . 
13.4X,I5,3X,I3,5X,I4,5X,F5.0,7X,F6.3) 

COMPUTE   VALUES  FOR  EACH  PERIOD.   THIN  AS  SPECIFIED. 


KK    =    CYCL    /  RINT(KAK) 
DO    190  L=l,KK 
AGEO   -   AGEO  +  RINT(KAK) 
N   =  AGEO 

IFIAGEO  .GT.   ROTA)   GO  TO  220 
IJ  =  11 
CALL  WORKGP 

MNK  =  DBHO  *   10.0  ♦  0.5 

OBHO  =  MNK 

DBHO  =   DBHO  *  0.1 

C 

C   REDUCE   FUTURE   DENSITY   BY   AMOUNT   OF   PREDICTED  MORTALITY. 

C 

I F I DBHT   .GE.    10.0)   GO  TO  170 
I  J  =  12 
CALL  WORKGP 

IFIDENO   .LT.   0.01    DENO  =  0.0 
MNK  =  DENT  *    (1.0   -  DENO)    ♦  0.5 
DENO  =  MNK 
GO  TO  175 
170  DENO  =  DENT 

175   BASO  =   DENO  *  0.0054542   *  DBHO  *  DBHO 


WRITE   HEADINGS   FOR   YIELD  TABLE. 
WRITE  (6,1001 

100  format  i 1h1 ,// ,62x , 11hpage  type  8) 

write  I6,ios)  oual ikani ,cucy i kak ) , thini kak > ,dlev( kak ) 
105  format  (1h0,  / , 28x , 8 1 hy i e lds  per  acre  of  manageo,  even-aged  stands 
1  based  on  predetermined  standards  f0r/1h  ,47x,10hsite  index, f5. 0,1 
2h,,f5.0,19h-year  cutting  cycle/1h  , 41x , 26hth i nn i ng  l  £ vel  s  =  initial 
3  -.f6.0.14h.  subsequent  -,f6.0) 
write  (6,1101  i wgpnmi kak, j) , j=l , 3  i 


COMPUTE   HTSO   FROM   AGE   AND   SITE  INOEX. 


I  J   =  9 
CALL  WORKGP 


C  CONVERT   TOTAL  CU.   FT.   TO  OTHER  UNITS. 

C 

IFIOBHO   .LE.   4.99)   GO  TO  185 

KNO  =  1 

BAI1I    =  BASO 

VDMIll    -  DBHO 

I J  =  2 

CALL  WORKGP 

8DF0 ( N )  =  TOTO  »  PROD ( 1  I 
CFMOIN)    =   TOTO  *  FCTR(l) 


C     TEST   IF   REGENERATION  CUT   IS  DUE. 
C 

DO  180  KU=1,3 

IFIAGEO  .EO.   REGN(KAK,KU,KAN) )   GO  TO  30 
180  CONTINUE 

185   IFIL   .EO.   KK)   GO  TO  195 

C 

C  WRITE   VALUES  FOR   END  OF   PERIOD   IF  THINNING  NOT  DUE. 
C 

JDENO  =  DENO  *  0.5 

JHTSO  =   HTSO  ♦  0.5 

JBASO  =  BASO  ♦  0.5 

JTOTO  =  TOTO  ♦  0.5 

JCFMO  =   CFMOIN)    +  0.5 

CFMOIN)    =  JCFMO 

JBDFO  =   BDFOIN)    *  0.1   ♦  0.5 

JBDFO  =   JBDFO  *  13 

BDFOINI    =  JBDFO 

BOFO(N)   =   BOFOINI    •  0.031 

WRITE    16,140)    AGEO, JOENO, JBASO, DBHO, JHTSO, JTOTO, CFMOI N ) ,BDFO( Nl 

DBHT  =  DBHO 

BAST  =  BASO 

DENT  =  DENO 
190  CONTINUE 
195  REST  =  DLEVIKAK) 
200  CONTINUE 


AOD  FINAL   CUTS  TO  TOTAL  YIELDS  AND  WRITE   TOTAL  YIELDS. 
JTOTO 


COMCUIKAKI )  GO  TO  225 
JCFMO 


GO  TO  230 


220  JSTF   =  JSTF 

CCFMO  =  JCFMO 

IFICCFMO  .LT, 

SSMC  =  JSMC  < 
225  BBDFO  =  JBDFO 

IFIBBDFO   .LT.    COMBF ( K  AK ) 

SBD   =  JSBO  *  JBDFO 

SBO  =   SBD  «  0.001 
230  VLBFIKANI    =  SBO 

VLCUIKANI    =  SSMC 

WRITE   16,235)   JSTF , SSMC , SBD 
235  FORMAT   I  1  HO , 67X , 1 2HT0TAL   Y I  EL DS , 1 8 X , I  5 , 4X , F6 . 

TEM  =  COMCUIKAKI   *  100.3 

T  MP  Y   =   COMBF I KAK )    t  1000.0 


0, 7X, F6.3I 


32 


WRITE    16,240)   TEM, TMPY 
240  FORMAT   I 1H0,/ ,11X ,44HMI NI MJM  CUTS   FDR   INCLUSION   IN   TOTAL  YIELDS- 
1,F6.0,15H  CUBIC  FEET   AND,F7.0,11H  BOARD  FEET) 
IROT  =  ROTA 
MNK   =  RINT(KAK) 
NV3L  =    ((IROT  -  Nll/HNKI   »  1 
K  =  NVOL  -  1 

INTERPOLATE   BETWEEN  VALUES  FROM  YIELD  TABLE. 


DO  260  L=1,K 

DO  260  J=1,MNK 

NN  =  J  ♦  Nl  ♦    (L-ll    •  MNK 

TEH  =   J  -  1 

N   =   Nl   ♦    (  L   -   1  >    »  MNK 
ANCUVINN)   =  CFMO(N)   -  CFMCIN) 

1  CFMO(N)   *  CFMC IN)] 
ANBOFINN)    =   BDFO(N)    -  BDFC(N) 

1   BDFO(N)   ♦  BOFC(N) ) 
260  CONTINUE 


ITEM    /    RINT(KAK))    •    I CF  MO  1 N  +  MNK ) 


( TEM    /    R INT  I KAK  )  I 


IF  ANY. 


I BDFO I N+MNK I 


C   STORE   VOLUMES   ANO  GROW T H  RATE  OF  SHELTERHOOD, 
C 

IF  I  REGN  (KAK,2,K/VN)    .EQ.   0.0)   GO  TO  335 
KX   =   REGNI KAK, 1 , KAN) 
MX    =    REGN I KAK , 2 , KAN ) 
LX   =   REGNI KAK, 3 , KAN ) 

SHWDIKAK, 1 ,  K  AN )    =    CFMO(KX)    -  CFMCIKX) 
IF(SHWD(KAK,1 ,KAN)    .LE.   O.DI   GO  TO  300 
GR0WC(KAK,1,KAN)    =   CFMOIMX)    /   S Hw D I K A K , 1 , K AN  I 
GR0WC(KAK,1,KAN)    =    ( GROW: I KAK, 1 , KAN)    -    1.01    /  PD1 
GO  TO  305 
300   SHWOIKAK.l .KAN)    =  0.0 

GROWC I KAK, 1 ■ KAN )    =  0.0 
305  SHELT IKAK.l ,KAN)   =   BDFO(KX)   -  BDFCIKX) 
IF  I SHELTI KAK, 1 ,KAN)    .LE.   0.0)   GO  TO  310 
GROWB I KAK , 1 , KAN )    =   BDFO I  MX )    /   SHEL T ( K AK , 1 , K AN ) 

(GROWBIKAK.l.KAN)    -   1.01    /  PD1 


GR0WB(KAK,1,KAN) 

GO  TO  315 
310  SHELTIKAK.l.KAN) 

GROWBIKAK.l.KAN) 
315  IF(*EGN(KAK,3,KAN) 


0.0 


PD2 


0.0 

. EQ.   0.01   GO  TO  335 
SHW0(KAK,2,KAN)    =   CFMOIMX)    -  CFMCIMX) 
IF! SHWDIKAK, 2, KAN)    .LE.   0.0)   GO  TO  320 
GROWC IKAK,2,KAN)    =   CFMOILX)    /   SHWDIKAK, 2, KAN) 
GR0WCIKAK,2,KAN)    =    (GR0WCIKAK,2,KANI    -  1.0) 
GO  TO  325 
320  SHWDIKAK, 2, KAN)   =  0.0 

GROWC I KAK ,2 , KAN  I    =  0.0 
325   SHELTIKAK,2,KAN)    =    BDFOIMX)    -  BDFCIMX) 
IF  I SHELT IKAK, 2, KAN)    .LE.   0.0)   GO  TO  330 
GR0WBIKAK,2,KAN)    =   BDFO I L  X )    /   SH E L T I K AK , 2 , K AN ) 
GR0WB(KAK,2,KAN)    =    ( G ROWB I K AK , 2 , K AN  I    -   I. 01    /  PD2 
GO  TO  335 
330  SHELT(KAK,2,KAN) 
GR0WBIKAK.2.KAN) 
335  RETURN 
END 


0.0 
0.0 


Subroutine  CUTS 


SUBROUTINE  CUTS 
TO  ESTIMATE   INCREASE   IN  AVERAGE  D.B.H.   DUE  TO  THINNING. 

COMMON  ADD, AGE  I  2 )  ,AGEO,BAI2),BAS(2 I ,  BASO , BA ST, B AUS , BF MRCH , BF VOL , 
1CFV0L,DATE(6),DBH(2I, OBHE.DBHO, DBHT,DEN(2),DEN0,DENT,DMUS,FBA(2), 
2FCTR(2),FDMI2),FDNI2l,FHT(2),FORET(19),FVL(2),HTI2 ) , HTCUM , HTSO, 
3HTST.KAK, KNO, MI N.MNK, NBK, NCMP ,NS JB, NWGP, PDBHE,PRET, PRODI  2 ) ,REST, 
4SAVE,SBARB,SBARE,SBARG, SBAS,SITE,SLAND.TBA(2).TDM(2),TEM,TIME,TMBR 
5,TMPO,TOTI2l,ToTO,TOTT,TVL(2),VDM(2),VLUS,DMR(2) 

COMMON  ABFAG(5,15),AC1NT15),ADJI5>,AGETHI5,14),ALLCF(5,14),AL0WCI5 
1),ALWBFI5),AMCAG(5,15),ANCUT(5,14I,AREA(5,14I,BDMAI(5),BFAGE(5,15) 
2 ,BF INT  I  5 ) , CFAGEI 5, 15 ) ,CFBFI 5, 14),COMBF(5I,COMCU(5I,CUCY(5),CUINT(5 
3)  ,CUMAI (5),DBHTH(5,14),DELAY(5I , DENThI 5, 14),DLEV(5),FNBD(5>, 
4FNCUI 5 ) .GROWB ( 5 ,2, 14) , GROWC (5,2,14) ,GVLBF(5),GVLCU(5),INVLI5,3,14) 
5,NSI(5),OPBD(5),OPCU(5),PAIBD(5),PAICU(5),POORI5I,REGN(5,3,14), 
6RINT(5),SARSP(5I,SBFI5), SHELT I  5 , 2 , 14 ) , SHWOI  5,2,14I,SMC(5I,SMSP(5I, 
7Su3BF(5,14l,SUBCF(5,14),SUMCF(5),SYSTI5).THIN(5),VLLV(5,3,14), 
8WGnUMI5),WGP0ESI5,20),WGPNMI5,3I,SPNUMI5I,TPBI5,7I,PASP(5,7I 

COMMON  ACBARI7I,ARBK(7),BARSI(7,14),BFTH(7,27),CMTH(7,27I,CUTA(7,2 
17I,:uTB(7,27),HELPI7,27I,NSBK(7),0PENI7,27I,PBRSI(7,14),PDCFN(7,27 
2I,PDCFR(7,27),PSPLT(7,27I , PUNC I  7 , 2 7 ) , S ARE TY I  7 , 35 ) , SL VG ( 7 , 2 7 1 , SPLTI 
37,27), THTY (7) ,UNCML(7,27) ,PA8R(7),PARTY(7,35) 

COMMON  ACFNL(5,7,15),ACRGN(5,7,15l,ACSI(5,7,14),ACSP(5,7ltGRBDI5,7 
l,15),GRMC(5,7,15),PS(5,7,14l,STYP(35l,TYPNM(35,5),PASI(5,7,14) 

COMMON  /BLKA/  ANBDFI 151 ) , ANCUVI 151l,BDFC(150),8DF0(150 ) , C FMC ( 1501 , 
1CFMOI150),CYCL,IROT,KAN,PD1,PD2,OUAL(14),ROTA,VLBF|14),VLCU(14) 

COMMON  /BLKD/   I  J , I K , K I , VOL , TVOL 

IFIDBHO   .LT.   9.4)   GO  TO  20 

COMPUTE  D.B.H.    IF  DBHO   IS   LARGE   ENOUGH  FOR   BASAL  AREA  TO  REMAIN 
CONSTANT. 

PRE  T  =  100.0 
DO  15  KJ=1,100 
1J  =  5 
CALL  WORKGP 

IDBHE  =  DBHE  «   10.0  ♦  0.5 

DBHE   =  IDBHE 

DBHE  =  DBHE  «  0.1 

DENE   =  DENO  »  PRET   »  O.Ol 

NDENE  =  DENE  ♦  0.5 

DENE   =  NDENE 

BASE  =   0.0054542  *  DBHE  *  DBHE  »  DENE 
NBASE  =  BASE  *   10.0  ♦  0.5 
BASE   =  NBASE 


TMPYI    GO  TO  60 
01   GO  TO  10 


BASE   =   BASE   •  0.1 
T  MP  Y  =  0.0054542 
TEM  =  BASE  -  REST 
IF  I TEM  .LE. 
IFITEM  .LT. 
PRET   =   PRET  -  1.0 
GO  TO  15 
10  PRET  =  PRET  -  0.3 
15  CONTINUE 
GO  TO  60 

C 

C  COMPUTE  D.B.H.  IF  BASAL  AREA  INCREASES  WITH  D.B.H. 
C 

20  PRE T  =  40.0 

IFIDBHO  .GT.   7.0)   PRET  =  70.0 
DO  55  0=1,100 
IJ  =  5 
CALL  WORKGP 

IDBHE   =  DBHE   *   10.0  ♦  0.5 

DBHE  =  IDBHE 

DBHE   =  DBHE   *  0.1 

DENE   =  DENO  »   I PRET  »  0.01) 

NDENE  =  DENE   *  0.5 

DENE  =  NDENE 

BASE  =  0.0054542   «  DBHE   »  DBHE  *  DENE 

NBASE   =   BASE  *   ICO  ♦  0.5 

BASE   =  NBASE 

BASE  =  BASE   «  0.1 

BREAK  =   49.9   »  REST  /  80.0 

I F I  BASE   .GT.   BREAK )   GO  TO  30 

D8HP  =   (80.0  /  REST)    «   (0.0B682   *   BASE)   *  0.9' 
GO  TO  40 
30  BUST  =  66.2   *   ( REST  /  80.0) 
1 F ( BASE   .GT.   BUST)   GO  TO  35 

DBHP  =   (80.0  /  REST)    *   (0.10938  *  BASE)   -  0.1" 
GO  TO  40 
35   TMPY  =  BASE  *   (80.0  /  REST) 
TEM  =  TMPY  *  TMPY 

DBHP  =   19.04740  *  TMPY  -  0.26673  *  TEM  ♦  0.00) 
1  -  448.76833 

I F ( TMPY  .GT.   BO.O)    DBHP  =   DBHO  ♦  0.8 
40   I DBHP  =  DBHP   *  10.0  *  0.5 

DBHP   =   I DBHP 

DBHP  =  DBHP  *  0.1 

I F ( DBHP  -  DBHE )  45,60,50 
45  PRET   =  PRET   *  1.02 


GO  TO  55 
50   PRET   =  PRET 
55  CONTINUE 
60  DBHT   =  DBHE 


*  0.98 


C   COMPUTE    POST-THINNING   BASAL  AREA. 
C 

I F ( DBHT    . GT.    5.0)    GO   TO  65 
SOFT  =   11.58495  *  DBHT  -  11.09724 
GO  TO  70 
65   I F ( DBHT   .GE.    10.0)   GO  TO  75 
TEM  =  DBHT  «  DBHT 

SOFT  =  7.76226  *  DBHT   O. 85289  *  TEM  -0.07952  «   TEM  t  DBHT-3. 45624 
70  BAST  =   (REST  /   80.0)    *  SOFT 

GO  TO  80 
75  BAST  =  REST 
80  RETURN 

END 


Subroutine  WORKGP 

SUBROUTINE  WORKGP 


C   TO  CALL   SUBROUTINES  CONTAINING  SPECIES  -   SPECIFIC  STATEMENTS. 

C 

COMMON  ADD, AGE ( 2 ) , AGE 0, BA ( 2  I , BAS( 2  I , BASO, BAST, BAUS,BFMRCH,BFVOL, 
1CFV0L,DATEI6),DBHI2), DBHE, DBHO, DBHT, DENI 2),DEN0,DENT,DMUS,FBAI2), 
2FCTR(2),FDM(2),FDNI2),FHT(2),FDRET(19),FVL(2),HTI2),HTCUM,HTS0, 
3HTST, KAK, KNO, MINtMNK, NBK, NCMP, NSJB, NWGP, POBHE, PRET, P^ODI 2 ) .REST, 
4SAVE,SBARB,SBARE,SBARG,SBAS, SITE, SLAND,TBA(2),TDM(2), TEM, TIME, TMBR 
5,TMPO,TOT(2),TOTO,TOTT,TVL(2),VDM(2),VLUS,DMR(2) 

COMMON  A8FAG(5,15),ACINT(5),ADJI5),AGETH(5,14),ALLCF(5,14I,AL0WC(5 

1)  ,ALWBFI5),AMCAG(5,15I,ANCJT(5,14),AREA(5,14),BDMAI(5), BF AGE (5,15) 
2,8FINT15I,CFAGE(5,15],CFBFI5,14),C0MBFI5I,C0MCU(5),CUCY(5),CUINT(5 
3),CUMAII5),DBHTH(5,14),0ELAYI5I,0ENTH(5,14I,DLEV(5I,FNBD(5), 
4Fn;UI5),GR0WBI5,2,14),GR0WCI5,2,14),GVLBFI5),GVLCU(5),INVL(5,3,14I 
5.NSI 15) ,OPBD I5),OPCUI5),PAIBDI5),PAICU(5),POOR(5),REGN(5,3,14), 
6RINT(5),SARSP(5),SBF(5I,SNELT(5,2,14I, SHWDI 5,2, 14) ,SMC(5),SMSP(5I, 
7SUBBF(5,14I , SUBCFI 5,14) , SUMCFI 5 ),SYST(5),THIN(5),VLLV(5,3,14), 

8 WGNUM I  5 ) , WGPDES (5,20)  , WGPNM I  5 , 3 ) , SPNUMI 5),TPB(5,7I,PASP(5,7) 

COMMON  ACBAR(7),ARBK(7),8ARSII7,14),BFTH(7,27),CMTH(7,27),CUTA(7,2 
17l,CUTB(7,27),HELP(7,27),NSBK(7),OPENI7,27),PBRSI(7,14l,PDCFN(7,27 

2)  iPDCFR(7,27),PSPLTI7,27l,PUNC(7,27l,SARETYI7,35),SLVG(7,27),SPLT( 
37,2  7),TMTYI7),UNCML(7,27),PABRI7I,PARTY|7,35) 

COMMON  ACFNL(5,7,15),ACRGNI5,7,15),ACSI(5,7,14I,ACSP(5,7),GRBD(5,7 
1,15),GRMC(5,7,15),PS(5,7,14),STYP(35I,TYPNM(35,5),PASI(5,7,14) 


COMMON   /BLKD/    I  J , I K , K I , VOL , T V OL 
EXPAND  FOLLOWING  GO  TO  AS   NEEDED  FOR  ADDITIONAL  SPECIES. 

NKAK    =  SPNUMIKAKI 

GO  TO   11,2,3,4,5),  NKAK 

1  CALL  BHPP 
RETURN 

2  CALL  LDGP 
RETURN 

3  CALL  SWPP 
RETURN 

CONTINUE  CALLS  TO  SUBROUTINES   TO  MATCH  LENGTH  OF  GO  TO. 

4  CONTINUE 
RETURN 

5  CONTINUE 
RETURN 
END 


3  3 


Subroutine  GOT 


SUBROUTINE  GOT 

TO  COMPUTE   PRESENT  VOLUMES  ,   DISTRIBUTIONS   OF   AREA  AND  VOLUME,  AND 
POTENTIAL  GROWTH  FROM   INVENTORY  DATA. 

COMMON  ADD, AGEI2), AGE 0,BA(2),BAS(2),BASO, BAST, BAUS, BFMRCH, BFvOL, 
1CFV0L,DATE(6),D8HI2I,  DBHE  ,DBHO,  DBHT,DEN(2),DEN0,DENT,0MUS,FBA(2), 
2FCTR(2).FDM(2).FDNI2),FHT(2>,FORET(19),FVL(2),HT[2>,HTCUM,HTS0, 
3HTST,KAK,KNO,MI N,MNK,NBK, NCMP.NSUB.NWGp, P DBHE . P R E T , P * OD I  2 ) ,«E  ST, 
4SAVE,SBARB.SBARE.SBARG,S8AS,SITE.SLAND,TBAI2),TDM(2),TEM,TIME,TM5R 
5,TMPO,TOT(2).TOTO,TOTT,TVL(2l,VOM(2l,VLUS,DMR(2l 

COMMON  ABFAGI  5, 15)  .  AC  INTI  5)  ,  AOJ  I  5  )  ,  AGETHI  5,  14),ALLCF(5,14),AL0WC(5 
1I,ALWBF(5),AMCAG(5,15),ANCJT(5,14),AREA(5,14),BDMAI(5),BFAGE(5,15) 
2,BFINT(5),CFAGE(5,15),CFBFI5,14),C0MBF(5),C0MCU(5>.CUCY(5),CUINT(5 
3  I  ,CL)MAI  (5>,DBHThI5,14),DELAy(5),DENTH(5,14),DLEV(5),FNBD(5I, 
4FNCU(5I,GR0WB(5,2,14),GR0WC(5,2,14I,GVLBF(5),GVLCU(5),INVL(5,3.14] 
5.NSI  15)  ,OPBD  (5)  ,OPCU(  5)  ,PAIBD(5),PAICU(5I,P00R(5),REGN(5,3,14>, 
6RINT(5I,SARSP(5),SBF(5>,SHELT(5,2,14>,SHWD(5,2.14),SMC(5>,SMSP<5), 
7SUBBF(5»14)»SUBCF  15,14)  , SUMCFI  5)  ,SYST(5).THIN(5),VLLV(5,3,14I, 
8WGNUH(5),WGP0ES(5.20).WGPNM(5,3),SPNUM(5>,TPBI5,7),PASP(5,7) 

COMMON  ACBAR(7),ARBK(7),BARSI|7,14),BFTH(7,27),CMTH(7,27),CUTA(7,2 
17)  ,CuTB(7,27)  , HELP(7,27),NSBK(7),0PEN(7,27),PBRSl(7,14),PDCFN(7,27 
2),P0CFR(7,27),PSPLT(7,27),PUNC(7,27),SARETY(7,35),SLVG(7,27),SPLT( 
37,27) tTMTY ( 7 ) ,UNCML(7,27) ,PABR(7),PARTY(7,35I 

COMMON  ACFNLI5,7,15),ACRGN(5,7,15),ACSI(5,7,14),A;SP(5,7),GR80(5.7 
1,15),GRMC(5,7,15I,PS(5,7,14),STYP(35>,TYPNM(35,5>,PASI(5,7,14> 

COMMON  /OPT/  OPTION, ICT9 

COMMON  /BLKA/  ANBDF(151),ANCUV(151),BDFC(150),BDFO(150),CFMC(150l, 
1CFM0I1501,CYCL,IR0T,KAN,PD1, PD2 , OUAL ( 14),RDTA,VLBF(14),VLCU(14) 

COMMON  / BLKB/   PAFN I  5 , 7 , 1 5 ) , P ARG I  5, 7, 1 5 ) , 
1PBFT(7,27),PCHT(7,27),PCTA(7,27) , PCTB ( 7 , 27 ) , PGBO ( 5,7,15), PGMC 15,7, 
215) ,PHLP(7,27I ,pOPN(7,27),PPBF(5,7,15),PPCR(7,27),PPFN(7,27), 
3PPM;(5,7,15),PPTC(5,7,15),PSLV(7,27),PTBF(5,7,15),PTCU{5,7,15), 
4PTMC(5.7,15> 

COMMON  /BLKD/  IJ,IK,KI,VOL,TVOL 

DIMENSION  FBO(2);fMC(2),BFM(2),CM(2),TBD(2),TCM(2) 
INITIALIZE   VARIABLES  FIRST  DEFINED  IN   THIS  SUBROUTINE. 


C 

C  READ   INVENTORY  DATA,   ONE  RECORD  AT  A  TIME  FROM  CARD  TYPE  9.  LAST 
C  RECORD   IS  CARD  TYPE   10  KITH  I8K  =   99   TO  STOP  PROCESSING. 

C 

READ   (ICT9.20)    IBK,KOMP,I SUB, QTR1,0TR2, SECT, TOWN, RANG, SITE, STRY, 
1 NTYP, WORK, F I SC, DBHI  1 )  ,  HT  (  1 )  ,  DEN  (  1  I  ,  AGE  (  1 )  ,  DMR  1  1),DBH(2),HT(2),DEN< 
22) , AGE ( 2 ) »DMR ( 2 ) , ACRE , WHEN 
20  FORMAT  (I2,I4,I3,3A3,2A4,F3.0,F1.0,I2,F1.0,F4.0,F3.1,F3.0,F5.0,F3. 
10,F2.1,F3.1,F3.0,F5.0,F3.0,F2.1,F5.1,F4.0) 

C 

C   STOP  VOLUME  COMPUTATIONS   IF  ALL   INVENTORY  RECORDS  READ. 
C 

IF    ( IBK   .EO.    99)    GO  TO  4D0 

C 

C  CONTINUE   COMPUTATIONS   IF   ALL   RECORDS  NOT  REAO. 


IF    ( NTYP   .GT.    25)    GO  TO  10 

KAN  =   (SITE  ♦  4.51   *  0.1 

ST0R1   =  HTIl] 

ST0R2   =  HT(2) 

JS  =   ( AGE  II)    ♦  9.5)   *  0.1 

I F ( STRY   .GT.   0.0)   JS  =   I  AGE ( 2 )   ♦  9.5)   *  0.1 
IF( JS  .GT.    15 )   JS  =  15 

I F ( NTYP   .GT.    0   . AND.    NTYP   .LT.   6)    KAK   =  1 
I F ( NTYP  .GT.   5   .AND.   NTYP   -LT.   11)   KAK   =  2 
IF    (NTYP   .GT.   10   .AND.   NTYP   .LT.    16)   KAK  =  3 
IF    (NTYP    .GT.    15   .AND.    NTYP    .LT.    21)    KAK   =  4 
IF    (NTYP   .GT.    20   . AND.    NTYP    .LT.   26)    KAK   =  5 
IFISITE   .LT.   POOR(KAK))   GO  TO  10 
IF ( DBHI 1 )    .GT.   0.0)   GO  TO  35 

C 

C  TEST  FOR   NONCOMMERCIAL  THINNING   IN  VERY  YOUNG  STANDS. 

C 

IFIWORK   . NE .   2.0)   GO  TO  10 

I F I  ACRE   .EQ.   0.0)   GO  TO  30 

HELP ( I BK, NTYP I   =  HELP! IBK, NTYP)   +  ACRE 

GO  TO  10 

30   PHLPI I BK,NTYP)    =   PHL P ( I BK , NT Y P )    t  1.0 
GO  TO  10 

C 

C  COMPUTE   BASAL   AREAS  AND  VOLUMES   PER  ACRE. 

C 

35  DO  40  1=1,2 

BAS(I)   =  0. 0054542  *  DBHI  I  I   *  DBH(I)   *  DENI I ) 
IF( DBHI I  )    .LT.   3.0)   GO  TO  40 
IF ( AGE  I  I )    . LT.   TEMI   GO  TO  40 


DO  2  1=1, 

NWGP 

I J  =  1 

DO  2  J=l, 

NBK 

IK    =  I 

DO  2  K=l, 

15 

CALL  WORKGP 

PAFNII ,J, 

Kl  = 

0 

0 

40  CONTINUE 

PARGII.J, 

Kl  = 

0 

0 

c 

PGBDI I , J, 

K)  = 

0 

0 

c 

IF  WORK  CODED  FOR  THINNING,   VERIFY  THAT   IT  CAN 

PGMC (I , J, 

K)  = 

0 

0 

c 

PPBF ( I , J, 

K)  = 

0 

0 

IFIWORK   . EQ.   2.01   GO  TO  50 

PPMC ( I , J, 

K)  = 

0 

0 

IFIWORK  . EQ.   6.0)   GO  TO  55 

PPTCU.J, 

Kl  = 

0 

0 

GO  TO  90 

PTBF I  I , J, 

Kl  = 

0 

0 

50  K  =  1 

PTCUI I , J, 

Kl  = 

0. 

0 

GO  TO  60 

PTMC ( I , J, 

Kl  = 

0 

0 

55  K  =  2 

CONTINUE 

60  IF(DBHIK)    .LT.   2.01   GO  TO  90 

00  4  1=1, 

NBK 

I F ( DBH ( K )    .GT.   5.0)   GO  TO  65 

DO  4  J=l, 

27 

LEVL  =  80.0  *  BAS(K)    /   (11.58495  «  DBH(K) 

PBFTI I , J) 

=  0 

0 

TMPY   =  THINIKAKI 

PCMT ( I , J) 

=  0 

0 

GO  TO  80 

PCTA ( I , J ) 

=  0 

0 

65   I F I DBH 1 K I    .GE.   10.01   GO  TO  70 

PCTBI I , J) 

=  0 

0 

TEM  =  DBH  I  K  I    «  DBHIKI 

PHLP(I.J) 

=  0 

0 

LEVL  =  80.0  *  BASIK)    /    (7.76226  *  DBHI K )  ♦ 

POPNI I , J) 

=  0 

0 

1*  TEM  »  DBHIK)   -  3.45624) 

PPCRd  ,J) 

=  0 

0 

GO  TO  75 

PPF  N ( I ,J) 

=  0 

0 

70  LEVL  =  BASIKI 

PSLVI I , J) 

=  0 

0 

75   TMPY   =   OLE V I KAK ) 

CONTINUE 

80  IFIWORK   . EQ.   6.0)   GO  TO  85 

♦  0.85289  *   TEM  -  0.07952 


INITIALIZE   VARIABLES  RECOMPUTED  FOR  EACH   INVENTORY  RECORO. 


IF( LEVL 
GO  TO  90 


LE.    TMPY |    WORK   =  0.0 


85 

I F ( LEVL   .LE.   TMPY)   WORK  =  5.0 

10 

DO  15 
BASH  ) 

1  =  1 

,2 
0.0 

c 

90 

IF | TOT  1 1 )    .EQ.   0.0)   GO  TO  120 

BFM(I) 

0.0 

c 

CONVERT  TOTAL  Cu.   FT.   TO  OTHER  UNITS 

CM!  I  I 

=  0 

.0 

c 

FBA ( I  1 

0.0 

IF(DBHIl)    .LE.   4.99)   GO  TO  105 

FBD( I  I 

0.0 

KNO  =  2 

FDMI I  1 

0.0 

BAI  1  )   =  BASH  1 

FDN ( I  I 

0.0 

BA( 2  I   =  BASI 2 1 

FHT ( I  I 

0.0 

VDMI1I    =   DBHI 1 ) 

FMCI I  1 

0.0 

V0MI2)    =  DBHI 2  1 

FVLIII 

0.0 

IJ  =  2 

TBAI I ) 

0.0 

CALL  WORKGP 

TBD ( I  I 

0.0 

DO   100  1=1,2 

TCM( I  1 

0.0 

BFMII)   =   TOT  1  I )   *  PRODIII    »  0.001 

TDM( I ) 

0.0 

100 

CMII)   =   TOT(I)   *  FCTRII)   *  0.01 

TVL(I) 

0.0 

105 

00   110  1=1,2 

15 

TOT( I  I 
BAUS  = 

0. 

0.0 

0 

c 

110 

TOTI  I  )   =   TOTI  I  )   *  0.01 

BDUS  = 

0.0 

c 

ADD 

VOLUMES  TO  APPROPRIATE  TOTALS. 

BF  VOL 

=  0.0 

c 

CFVOL 

=  c 

.0 

TMCF    =   CMI 1 1    +   CMI 2 ) 

CMUS  = 

0. 

0 

TMBD  =  BF M I  1 1   t   BFMI2 ) 

DMUS  = 

0. 

0 

IF ( ACRE   . EQ.   0.0 )   GO  TO  115 

DNUS  = 

0. 

0 

PTCUIKAK, IBK, JS I    =   PTCUIKAK, IBK, 

JS) 

FTBD  = 

0. 

0 

PTMC IKAK, IBK, JS)    =    PTMCIKAK, IBK, 

JS) 

FTCM  = 

0. 

0 

IFITMBD  .LT.   BFMRCH)   GO  TO  120 

HTuS  = 

0. 

0 

PTBF (KAK, IBK, JS 1    =    PTBFIKAK, IBK, 

JS) 

ST0R1 

=  0.0 

GO  TO  120 

ST0R2 

=  0.0 

115 

PPTC IKAK, I BK, JS)   =   PPTC 1 KAK, I BK, 

JS) 

TEM  = 

MIN 

PPMC (KAK, IBK, JS)    =    PPMCI KAK, I BK, 

JS) 

TMBD  = 

0. 

0 

IFITMBD  .LT.   BFMRCH)   GO  TO  120 

TMCF  = 

0.0 

PPBF (KAK, IBK, JS)    =   PPBFI KAK, I BK, 

JS) 

VLUS  = 

0. 

0 

c 

( TOTI 1 ) 
(TMCF  * 


TOT  I  1 ) 
TMCF 


+  T0TI2) ) 
ACRE  I 


34 


COMPUTE   GROWTH  FOR  N"=XT  PERIOD  BY  WORKING  GROUP,    BLOCK,   AND  ACE  CLASS. 

120   I F  ( WORK   .NE.   3.01   GO  TO  130 

[ F I BFH ( I )    ■  LT.   COMBFIKAKI)   r.n  TO  10 
IF (ACRE   .Ed.   0.0)   CO  TO  125 

SLV3II8K,NTYP)    =    SLVGI IBK.NTYP)    t    IBFM(l)    •    ACRE  ) 
CO  TO  10 

125  PSLV ( I BK.NTYP  I   =  PSLV 1  I BK , NTYP I    ♦  0 F M ( 1 1 

GO  TO  10 
130  TMDY  =  AGE ( 1 )    •  TIME 

TEM   =   HI N 

IFITMDY   .IT.    TEH)    GO   TO  150 
SBAS  =  BASI 1  I   *   BAS I  2  I 
1FISBAS   .EO.   0.0)   CO  TO  150 
J  ="  T I  HE   /  RINT(KAK) 

00  1*0  K=1,J 
IJ  =  3 

CALL  WORKGP 

1  F I  J   .EO.    1 )    GO  TO  140 
00   135  1=1,2 

AGE  (  |  I   =   AGE  I  I  )   ♦  a  PIT  I  KAK) 

DBHI  I  I    =    FOHI  I ) 

DENI  I  I    =    FDNI  I  ) 

HT( I )    =    FHTI [ ) 
135  CONTINUE 

SBAS   =   FBA(l)    ♦   FBAI2  I 
1*0  CONTINUE 

C  ON VFR  T   TOTAL   CU.    FT.    TO  OTHER  UNITS. 


*US 


IFIFOHIll    . L  E . 

KN3  =  2 

BA  t 1 )    =  FBA I  1  I 
BA  I  2  )    =    F  R  A  I  2  ) 
VDH(l)    =  FOH(l) 
V0HI2)    =  FDMI2) 

IJ  =  2 
CALL  WORKGP 
DO   1*5  1=1,2 
FBOI I  I    =   FVL ( I  I 
FHC I  I )    =   FVL( I ) 
1*5  CONTINUE 


4.99)    GO   TO  150 


PRODI  I ) 
FCTRI  1  I 


0.001 
0  .01 


C  ADD  PERIODIC   GROWTH   IF   NO  WORK   IS   PLANNED  DJR  ING  NEXT  PERIOD. 


150  IFIWORK  .GT.  1.01 
I F I  ACRE  .EQ.  0.0) 
3R83 (KAK, 1 BK, JS I  : 
3RM; (KAK, IBK. JS )  i 
CO  TO  10 

155  P3B3 [KAK, I BK, JS)  ■ 


GO  TO  170 

30  TO  155 
GRBDI KAK, IBK, JS I 
OR  MC I KAK , IBK, JS I 

PGBDI KAK, IBK, JS ) 


I  FBDI  1  H-FBDI  2  l-TMBO  > 
( FHC I l)*FHC( 2 l-TMCF) 


PGMC  [  KAK , I BK , JS  1  =  PGMC I K AK , I BK, JS I 
GO   TO  10 


FBOI 1 ) 
FKC (  1  ) 


FBDI 2  I 
FMC I ?l 


TMBD 
THr.F 


COMPUTE   FUTURE   UNTHI NNCD  UNDERSTORY   IF   3VERST0RY   IS   REDUCED  NOW. 


01  GO  TO  175 
0  1  GO  TO  175 
".0)   GO  TO  175 


170  IFIWORK  . L  T .  * 
IF  I WORK  . GT.  5 
IFI0BHI2)  .EO. 

IJ   =  4 

CALL  WORKGP 

IFIDHUS    .LT.    5.0)    GO   TO  175 
KNO  =  1 
BAI1I    =  BAUS 
VOHIl)    =  DMUS 
I J  =  2 
CALL  WORKGP 
BDUS  =  VLUS 
CMUS  =  VLUS 


PROD  I  1  I 
FCTR  I  I  I 


0.001 
0.01 


DETERMINE  POTENTIAL   WORK   LOAD  FOR   NEXT   PERIOD.   CREDIT   FUTURE  CUTS 
WITH   HALF    PERIODIC    GROWTH    OBTAINFO    IF    NOT  CJT. 

INCLUDE    STANDS   NEAR   ROTATION   AGE    IN   POTENTIAL   REGENERATION  CUTS 
REGARDLESS   OF   WORK  INOEX. 

175   IFIWORK   .EO.    2.0)    GO  TO  285 
IFIWORK   .GT.    4.0)    GO  TO  2*5 

COHPUTE   GROWTH  AND  YIELD  OF  STANDS  TO  BE  REGENERATED   IN   NEXT  PERIOD. 


210    PGM: IKAK, I BK, JS I    =    PGMC I <AK ,  I BK , JS }    ♦    I F  MC I  2 ) 
12)    »   FMCI1)   -  CM(l)    ♦   DMY   •  TEM)   •  0.5 

215   IF(AGEll)    .GE.   PF 5N I K AK , 2 , K AN ) I   GO  TO  220 

HFVOL    =    IBFMI1)    ♦    FB0I1I)    •   C.5   -    SHF L T I K AK , 1 , K AN  I 
CFVOL    =    ICH(l)    ♦    F "C (  1  I  )    »    0.5    -    SHWDIKAK.l.KAN)    •  0.01 
GO  TO  225 

220   BFVOL   =    I  BT  H  I  1  )    *   FUOID)    •    0.5   -   SHE  L  T  I  K  AK  ,  2  ,  KAN  I 

CFVOL  =  ICMI1I  ♦  FHCCHI  »  0.5  -  SH  WD  [KAK, 2, KAN)  «  0.01 
225   IFIBFvOL   .LT.   Cnr'BF(KAKl)   GO  TO  235 

I  J   =  6 

Kl    =  1 

VOL   =  BFVOL 

TVOL   =  CFVOL 

CALL  WORKGP 

I  F I  ACRE   .SO.  0 

CUTAI IBK,NTYP) 


CM  I  21   -  CHI 


0)   GO  TO  230 

=  CUTAI IBK.NTYP)  ♦  IBFVOL  *  ACRE) 
POCFRI IBK.NTYP)  =  POCFRI  IBK.NTYP)  ♦  I  ADD  *  ACRE) 
GO  TO  10 

230  PCTAI 1RK.MIYP)   =   PC T A  I  I BK , NT Y P I    ♦  BFVOL 
PPCR  I  1  BK.NTYP)    =   PPCOI  IBK.NTYP)    «■  AOO 

CO  TO  10 

235   IFICFvOL   .LT.   CONCUIKAK))    GO  TO  10 
I F I  ACRE   .E(J.   0.0)   GO  TO  240 

PDCFRI IBK.NTYP)    =   PDC FR I  I BK , NTYP )    ♦   ICFvOL   «  ACRE) 

GO  TO  10 

240  PPCRI IBK.NTYP]    =   PPCR I  I BK , NTYP I    »  CFVOL 
GO  TO  10 

C 

C  COMPUTE   GROWTH  AND  YIFLD  OF   STANDS  To  LOSE  OVERSTOrY   IN  NEXT  PeRIOO. 

C 

245   IFIACRE   .FO.   0.0)   GO  TO  250 

3RB3 I KAK , I BK . JS )  =  GRBDI KAK,  I BK , JS )♦!  I FBDI 1  I  -  BFM(ll)  *  0.5)»ACRE 
GRMC I KAK, I BK, JS I    =  GRMC I KAK, I BK, JS I ♦!  I FmC I  1  I   -   CMI1)I    *  3.5I*ACRE 


ACFNL I KAK, I BK , JS I 

CO  TO  255 
250  PGBOIKAK, IBK, JS)  ■■ 

PGv;(KAK, IBK, JS)  ■ 

PAFN I KAK , I BK, JS )  ' 
255  BFVOL  -    (BFM(l)  ♦ 


=    ACFNL I KAK , I BK , JS ) 

PGhDI KAK , 1 BK, JS I  * 

PGMC I KAK, I BK, JS )  ♦ 

PAFNI KAK. I BK, JS I  * 
FBPI 111    *  0.5 


♦  ACRE 

(FBDI II  -   BF m ( 1 1 )    *  0.5 

I  FHCI  1  )  -   CHI  1  I  I    »  0.5 

1.0 


30  TO  265 


PFVOL  * 
♦   I  ADD 


BFVOL 
ADD 


ACRE 
'  ACRE) 


75 


;fvol  *  ACRE 


PGBDIKAK, IBK, JS I  ♦  (FBDI2I 
PGMC! KAK ,  I BK , JS )    ♦    I FMC I  2 ) 


IFIAGEI1)    .GE.   REGNIKAK,2,KAN) I    GO  TO  180 

TEM    =    GROWB I KAK , 1 , KAN  I    «  TIME 

DMY    =    SHELT I KAK , 1 , KAN  I 

30  TO  185 
180  TEM  =  GR0wBlKAK,2,KAN)   «  TIME 

DMY    =    SHELT I KAK , 2, KAN ) 
185  THPY  =    IFBDI1)   ♦   BFM(l))    «  0.5 

IFITMPY    .LT.    DMY!    DMY    =  TMPY 

I F I  ACRE   .EO.   0.01   GO  TO  190 

GRBDIKAK, IBK, JS]  =  GRBDIKAK, IBK, JS)  ♦ 
1M<2>   »  FBDI1I   -  BFMIH   ♦   DMY  «  TFM)  «■ 

ACR3NI KAK , IBK , JS )    =    A CR G M ( K AK , 1 BK , J S  ) 

GO  TO  195 

190  P3BDI KAK , IBK, JS I   =   PGBDI KAK, [BK, JS I  '♦ 

1MI2)   ♦  FBDI1)   -  BFM(l)   ♦   DMY  *  TEM)   «  o.5 

PAR3IKAK,  IBK.JS)  =  PARGI KAK ,  IBK, JS  I  *  1.0 
195  IF(AGEtl)    .GE.   RE3N ( K AK , 2 , K AN ) 1   GO  TO  200 

TEM  =  GROWC I KAK , 1 , KAN  I   «  TIME 

DMY    =    SHWDIKAK.l.KAN)    *  0.01 

CO  TO  205 
200  TEM  =  GR0WCIKAK.2.KAN)   *  TIME 

DHY    =    SHW0IKAK.2.KAN)    *  0.01 
205  TMPY  =   (FMCIll    ♦  CMI1I)    *  0.5 

IFITMPY    .LT.    DMY)    DMY    =  TMPY 

IFIACRE   ■ EO.   0.0)   GO  TO  210 

grh;(kak,ibk,jsi  =  grmc i kak , i bk, js >  ♦  ifhcI2) 

12)  »  FMCIll  -  CMI1)  »  DMY  *  TEM)  *  0.5  *  ACRE 
GO  TO  215 


IFBDI2)   ♦  BDUS  -  BFMI2)   -   p F 
0.5  *  ACRE 
♦  ACRE 

( FBDI 2 )    »   BOUS   -   BF  M I  2 )    -  BF 


CFVOL  =  I CM< 1  I  *  FMCI  1 ) ) 
I F 1 3  F  VOL    .LT.  COMBFIKAK) 

IJ  =  6 

KI    =  1 

VOL   =  BFVOL 

TVOL    =  CFVOL 

CALL  WORKGP 

IFIACRE   • FO.   0.01   GO  TO  263 
CUTBI  IBK.NTYP  I    =   CIJTB  I  IBK.NTYP)  * 
PDCFNI IBK.NTYP)    =   PDC  FN! IBK.NTYP) 
GO  TO  275 

260  PC  TBI IBK.NTYP)  =  PCTBt IBK.NTYP)  t 
P°FN(  IBK.NTYP)  =  PPFNI  IBK.NTYP)  > 
CO  TO  275 

265   IF  CFVOL   .LT.   COMCUIKAKI)   GO  TO  i 
I F  (  ACRE   .El).   0.0)   GO  TO  273 
PDCFNI  IBK, NTYP)    =    PDC FN  I  [ BK , N T Y P I  * 
GO  TO  2  75 

270  PPFNI IBK, NTYPI    =    PPFNI IBK, NTYP)    <■  C 
275   IFIWORK   .GT.   5.0)   GO  TO  2B5 
IFIACRE   . EO.   0.0)   GO  TO  2B0 
GRBDIKAK, IBK, JS)    =    GR BDI KAK , I BK, JS I 
1MI2) )   *  0.5  *  ACRE 

GRMC I KAK, IBK, JS )    =   GRMC(<AK. IBK.JS) 
12)1    *  0.5   *  ACRE 
GO  TO  10 
280  PGBOIKAK,! BK, JS I 
1MI2) )   »  0.5 

PGMCIKAK, IBK.JS) 
121  )   *  C.5 
GO  m  10 
285  HT I  1  I   =  ST0R1 
HT(2)   =  ST0R2 


C    GET    VOLUME    IF    THINNED    NOW    AND    IF    THINNED    IN    TIME  YEARS. 

C 

K    =  1 

IFIWORK   . EQ.   6.0)   K   =  2 

DO  310  1=1,2 

REST  =  DLEVIKAKl 

IFII    .=0.   2)   GO  TO  300 

IFIDSHIK)    . EQ.   0.01   GO  TJ  310 

IFIOBHIK)    .LT.    6.01    REST   =  THIN(KAK) 

08H0    =  DBHIK) 

OENO  =  OEN(K) 

GO  TU  305 
30>   IFIFOMIKI    .EO.  0. 

IFIFDMIKI    .LT.  6. 

OBHO  =  FDMIK) 

DEN3   =  FDNIK) 
305  CALL  CUTS 

TBAII)    =  BAST 

TOM(I)    =  DBHT 

IFII    .EO.    1)  SAVE 

IFII    .CO.    ?)    HT I K 

I  J    =  7 

IK    =  I 

KI    =  K 

CALL  WORKGP 
310  CONTINUE 


0)   GO  TO  310 

01   REST  =  THINKAK) 


CMUS  -  CM ( 2)   -  CM! 


C  CONVFRT  TOTAL  CU.  FT.  TO  OTHER  UNITS. 
C 

IF(TDH(2)    .LE.   4.99)   GO  TO  320 

KN3  =  2 

BA( 1 )    =   T  B  A  I  1 ) 
B  A  I  2 )    =   TBAI 2 ) 
VDM(l)    =  TDMI1I 
VDMI2)    =  T0MI2) 


35 


I J  =  2 
C4LL  WORKGP 
DO  315  1=1,2 
IF(TVLII)    .EO.  ( 
TOO ( 1 )   =   TVL ( I  I 
TCMI 1 )    =    TVL ( I ! 
315  CONTINUE 


31   GO  TO  31S 
PRODI  I )    *  0 .001 
FCTRI I )   »  0.01 


C  GET  STATUS   AT   END  OF  PERIOD  OF   A  PLOT   THINNED  AT  START  OF  PERIOD. 

C 

320  HT I  1  I    =  ST0R1 

IFIK   . FQ .   2)   HTIll    =  ST0R2 
I  J   =  8 
K I    =  K 
CALL  WORKGP 

IFIFOMIll    ,LE.   4.99)    GO  TO  330 

C 

C   CONVERT   TOTAL   CU.    FT.    TO   OTHER  UNITS. 


KND 


1 


P  A  I  1  )    =  FBAI 1 ] 
VDMIll    =  FDM(l) 

IJ  =  2 

CALL  WORKGP 

FTBD  =   FVLI1I    *   PROD(l)    *  3.031 
FTCM   =    FVLU)    *   FCTRIll    *  0.C1 
I F ( AC R E   . EO.   O.CI   GO   TO  325 

GR8DI  KAK,  I  BK,  JS)  =  GR  BD  (  K  AK  ,  I  8K  ,  J  S  )  *  (FPO(K)  -  PFMU)  ♦  FTBD  -  TP 
1DI1 I )    «  0.5  *  ACRE 

GRMCIKAK.lBK.JS)  =  GRMC|KAK,I8K,JS)  »  IFMCIK)  -  CM|K)  +  FTC.M  -  T'M 
1  I  1  I  I    *  0.5  *  ACRE 

GO  TO  330 

325   PGBDIKAK, IBK, JS)    =   PG  BDI K AK , I BK , J  S  J    *    IFHDIK1    -   RFM(K>    ♦   FTBD   -    T 1 
10(1)1    *  0.5 

PG»C  (KAK,  IBK,  JS)  =  PGMC ( KAK ,  I BK , JS )  ♦  (FMC(K)  -  CMIKI  *  f TC*  -  TCM 
1(11)    «  0.5 

ASSIGN   THINNINGS   TO   BD.    FT.    OR   CU.    FT.    TOTALS,    IF  COMMERCIAL. 

330   TH8   =    IFBO(K)    -   TBDI2)    ^   BFMIKI    -   TPOIDI    *  0.5 
THC    =    (FMC(K)    -    TCMI?)    t    CMIK)    -    TCM  (  1  )  )    *  0.5 
IFIThB   .LT.   COMBF(KAK))   30  TO  340 
IJ   =  ft 
KI   =  K 
VOL   =  THB 
TVOL   =  THC 
CALL  WORKGP 
I F ( ACRE  . 
BFTHI I BK , NTYP ) 
C  M  T  H (  IRK, NTYP) 
OPEN) I BK , NTYP ) 
GO   TO  10 
335  P8FT( IBK, NTYP) 
PCMTI I 6K , NTYP ) 
POPN ( IBK, NTYP) 
GO  TO  10 

340   IFITHC   .LT.   CQMCUIKAKII   GO  TO  353 
IFIACRE   .FO.    0.0)   GO  TO  345 
CMT-I  (  I  BK.NTYPI    =    CMTHI  IBK, NTYP)  t 
OPEN! I BK, NTYP )   =  OPEN ( I BK , NTYP )  ♦ 
GO  TO  10 
345  PCMT I  I BK , NTYP) 
POPN ( IBK, NTYP I 
GO  TO  10 


DIMENSION  PFBLK(7),BFSP[5,7),BFTP(7,27),CFMERI7),CFT3(7,27I, 
1CMSPI5,7>,CMTB(7,27),TCFI7),TCSPI5,7I,STCI5I 

C 

C    INITIALIZE   VARIABLES  FIRST  DEFINED  IN  THIS  SUBROUTINE. 

C 

SBDF  =  0.0 
SCFM  =  0.0 
SSPT  =  O.G 
STCF  =  0.0 
SUNG  =  0.0 

no  l  i=i,nwup 
st: ( i i  =  o.o 

DO  1  J=1,.NBK 

PFSP I  I  ,  J  )   =  O.C 

CMSP(I.J)    =  3.0 

TCSPII.JI  =  0.0 
1  CONTINUE 

DO  4   1=1,  NBK 

BFBLK ( I )    =  0.0 

CFMER ( I  I    =  0.0 

TCP (II    =  0.0 

DO  4  J=l,27 

BFTBII , J)   =  0.0 

CF  TB I  I , Jl    =  0.0 

CMTB ( I , J)  =  0.0 
4  CONTINUE 

C 

C  COMPUTE    TOTAL   VOLUMFS   BY  WORKING  GROJP,   BLOCK ,   AND  AGE  CLASS. 

C 

00  50  I=1,NWGP 

00  50  J=1,NPK 

K  =   1   ♦    (  I   -  1)   *  ; 

I F ( PSPLT ( J,K)    . FO.    0.0)    GO   TO  15 

TEM   =   PARTYIJ, K>    /  PSPLT(J.K) 

00   10   MNK =1,3 


)   TO  335 
=   BFTHI IBK, NTYP) 
=   CMTH I  I BK , NTYP) 
=  0PEN(I8K,NTYPI 

=   PBFTI IBK, NTYP) 
PCMT ( IBK ,NTYP) 
=  POPN(IBK.NTYP) 


PCMT ( I BK , NT  Y  P ) 
POPM  IBK, NTYP) 


(  THB 
I  ADD 
ACRF 

THB 
ADD 
1.0 


I  THC 
ACRE 


THC 
1.0 


ACRE  ) 
ACRF) 


MAKE   RECORD  OF   NONCOMMERCIAL  THINNINGS. 


.0)    GO   TO  355 

HELPI IBK, NTYP) 


350   IFIACRE   . EQ. 

HE  LP  I  I BK , NTYP ) 
GO  TO  10 

355   PHLPIIBK.NTYP)    =   PHL P I  I BK , NT Y P  I 

GO  TO  10 
400  RETURN 

END 

Subroutine  SUMS 

SUBROUTINE  SUMS 


TO  COMPUTE   VOLUME    AND   AREA   TOTALS   BY   WORKING   GROUP,    AGE   CLASS,  ETC. 

COMMON  ADD, AGE  121, AGE 0,BAI2I,BASI2),8AS0, BAST, BAJS,BFM^Ch,BFVJL, 
1CFV0L,DATF(6),DBH(2), DRhE , DBHO, DBHT, OENI 2),DEN0,OENT,OMUS,F8A[2), 
2FCTR[2),FDMI2),FDNI2l,FHT(2),FORET(19),FVLI2),HTI2l,HTCUM,HTSO, 
3HTST, KAK, KNO,MIN,MNK, NBK, NCMP,NSJB,NWGP,POBHE,PRET, PRODI  2), REST, 
4SAVE,SBARB,SBARE,SBASG,SBAS, SITE, SlAND,TeA(2),T DM (2>, TFM, TIME, TMBR 
5,TMpO,TOT(2),TOTO,TOTT,TVLI2),VDM(2),VLU5,DMR(2) 

COMMON  ABFAG(5,15),ACINT(5),ADJ(5),AGETH(5,14),ALLCF(5,14) , ALOWC ( 5 

1)  ,ALWBF(5>,AMCAG<5,15>,ANCUTI5,14),AREAI5,14),BDMAK5),BFAGEI5,15> 
2,BFlNT(5),CFAGE(5,15),CFBF(5,14),COMBF(5),COMCU(5|,CUCY(5),:illNT(5 
3),;UMAI(5I,DBHTH(5,14I,DELAY(5),DENTH(5,14),DLEV(5),FN80(5), 
4FNCUI5),GR0WB(5,2,14| , GROWC (5,2,14),GVLBF(5),GVLCU(5),INVL(5,3,14) 
5,NSI(5),OPBD(5),OPCU(5I,PAIBD(5),PAICU(5), POOR ( 5 ) , REGN ( 5 , 3 , 1 4  )  , 
6RINTI5I,SARSP(5),SPF(5I,SHELT(5,2,14),SHWD(5,2,14),SMCI5|,5MSP(5), 
7SUBBFI5, 141, SUBCF15, 14), SUMCFI5),SYST(5),THIN(5),VLLV(5, 1,141, 
BWGNUMI5 ) , WGPDES ( 5,20),WGPNM(5,3),SPNIIM(5),TPBI5,7),P4SP|5,7> 

COMMON  ACBAR(7I,ARBK(7),BARSI(7,14),BFTHI7,27),CMTH(7,27),CUTA(7,2 
17),;uTB(7,27),HELP(7,271,NSBK(7),0PEN(7,27),PBRSI(7,14),PDCFN(7,27 

2)  ,P0CFR(7,27I,PSPLT(7,27),PUNC(7,27),SARETY(7,35I,SLVG(7,27),SPLT 
37,27),TMTY(7),UNCML(7,27),PABR(7),PARTY(7,35) 

COMMON  ACFNL(5,7,15),ACRGNI5,7,15),ACSII5,7,14],ACSP(5,7l,r,RPp(5,7 
1 ,15) ,GRMC(5,7 ,15 ) ,PS 15, 7, 14) ,STYP| 35 ) , TYPNMI 35, 5) ,PASI ( 5, 7,14) 

COMMON   /81KB/   PAFNl 5, 7, 15 ) , PARG1 5 , 7, 15  I , 
1PBFT(7,27),PCMT(7,27),PCTA(7,27),PCTP(7,27I,PGB0(5,7,15),PGMCI5,7, 
215),PHLP(7,27),POPN(7,27),PPBF(5,7,15l,PPCR(7,27l,PPFNI7,27), 
3PPMCI5,7,15),PPTC(5,7,15),PSLV(7,27I,PTBF(5,7,15),PT:U(5,7,15), 
4PTMC 15,7,15  1 


PGBDII , J.MNKI 

=   PGBDI I 

J 

,  MNK) 

TFM 

PGV.C  (  I  ,  J.MNK) 

=   PGMC I  I 

J 

,  MNK) 

T  FM 

PPBF ( I , J, MNK 1 

=  PPBF I  I 

J 

,  MNK) 

TEM 

PPT;  I  I  ,  J , MNK ) 

=  PPTCII 

J 

,  MNK  ) 

TEM 

PPMC ( I , J , MNK ) 

=  PPMC1I, 

J 

,  MNK) 

TEM 

10 

CONTINUE 

15 

K   =   K   +  1 

IF ( PSPLT ( J, K 1 

.EC.  0.0) 

;o  to 

25 

TFM    =  PARTYIJ, 

K)   /  PSPLTIJ.K) 

DO  20  .MNK  =  4,5 

PGBD ( I , J , MNK ) 

=   PGBDI  I  . 

J 

,  MNK  ) 

TEM 

PGMC 1 1 , J , MNK ) 

=   PGMC!  I. 

J 

,  MNK  ) 

TFM 

PPBF ( I , J.MNKI 

=   PPBF 1  I , 

J 

,  MNK  1 

* 

T  EM 

PPTC ( I , J, MNK ) 

=   PPTCI  I , 

J 

,  MNK  1 

* 

TEM 

PPMC  (  I  ,  J,  MNK) 

=   PP»C (  I  , 

J 

MNK  ) 

TFM 

20 

CONTINUE 

25 

K  =  K  +  1 

IFIPSPLT 1 J,K  I 

.EO.  0.0) 

GO  TO 

35 

TEM   =  PARTYIJ, 

K)    /  PSPLT 

J,K) 

DO   30  MNK=6,10 

PGBDI I ,J,MNKI 

=   PGBDI I , 

J 

MNK  1 

* 

TEM 

PGMC 1  I , J, MNK) 

=  PGMCIl, 

J 

MNK  ) 

* 

TFM 

PPBF  (  I  ,  J,  MNK  ) 

=  PPBFII, 

J 

MNK  ) 

TFM 

PPTC [ I , J, MNK) 

=    PPTC 1 1 , 

J 

MNK  ) 

TEM 

PPMC ( I , J.MNK) 

=    PPMC 1  I  , 

J 

MNK  1 

TEM 

30 

CONTINUE 

35 

K  =.  K  ♦  1 

IF(PSPLT(J,K) 

. FQ.  0.0) 

GO  TO 

45 

TEM   =  PARTYIJ, 

K)   /  PSPLT 

J,  K  1 

00  40  MNK=11,14 
PGBD I  1  , J.MNK I  = 
PGMC (I.J, MNK)  = 
PPBFII, J, MNK)  = 
PPTC I  1  , J , MNK I  = 
PPMC  (  I  ,  J,  MNK)  = 

40  CONTINUE 
45   K   =   K   +  1 

1  F I PSPLT I  J ,K ) 


PGBD ( I , J , MNK ) 
PGMCI  I, J, MNK) 
PPBF (  I , J, MNK ) 
PPTC (  I , J, MNK  ) 
PPMC  (  I  ,  J  ,  MNK  1 


TEM 
T  EM 
TEM 
TFM 
TFM 


EO. 


TEM 


PARTYIJ, K)  / 


PGBDII, J, 15)  = 
PGMC I  I , J, 1 5  I  = 
PPBFII, J, 15)  = 
PPTC  I  I  , J,  15)  = 
PPMC I  I , J  ,  15  )  = 

50  CONTINUE 

00  55  I=1,NWGP 
DO  55  J=1,NBK 
DO  55  K=l,15 
GRBOII ,J,K) 
G'MC I  I , J, K ) 
PTBF I  I , J , K  I 
PTCUI I , J,K) 
ptm; ( i , j  ,k ) 

55  CONTINUE 


0.0)  GO  TO  50 
PSPLT  I  J,  K  I 


PGBD (  I , J, 15  I 
PGMCI I , J,  1  5) 
PPBF( 1,1,15) 
PPTC  (  I  , J , I  5 ) 
PPMC ( I , J, 15) 


TEM 
TEM 


GRRDI I , J , K ) 
GRMC1 I , J,K I 
PTBF ( I , J, K I 
PTCUI I , J, K ) 
PTMC (  I  ,  J, K  I 


PGBDI  I , J, K  ) 
PGMCI I , J, K ) 
PPBF I  I  , J ,K ) 
PPTCI  I  ,  J , K  ] 
PPMCI  I  ,  J, K  ) 


C   COMPUT=    TOTAL   VOLUMES    BY    BLOCK   AND  TYPC 


00  90  I=1,NWGP 
DO   90  J=1,NBK 
K   =1+11-1)*  5 
DO  7  0  MNK =1,3 
BFTBI J,K)    =    BFTBI J,K) 
CF  TB I J,K )    =    CFTB (  J  ,KI 
70  CMTB ( J.K)   =  CMTRIJ.KI 


K 


1 


DO    75  MNK=4,5 
BF  TBI J.K )    =    BFTB (  )  ,K I 
CFTB ( J,K)    =    CFTB | J, K) 
75  CMT8I J.K)    =  CMTB( J.KI 


K 


K 


1 


DO  60  MNK=ft.l0 
BFTBIJ.K)    =   BFTBI J.K) 
CFTB ( J.K)   =  CFTBI J , K ) 


PTBT I  I  ,  J, MNK I 
PTCUI I , J, MNK I 
PTMC  I  I , J, MNK  ) 


PTBF  I  I  , J, MNK I 
PTCUI  I , J , MNK  ) 
PTMC! I , J, MNK ) 


PT  B  F  I  I ,  J , MNK  ) 
PTCUI  I , J , MNK  I 


36 


so 

CMTBI J, Kl 
K   •   K   ♦  1 
00   83    MNK  = 

=   CMTBI J 
11,1* 

K) 

PTMCI I 

J 

MNK  1 

PAIBDII)    =   GRBDII.J.KI    ,  PAIBDII! 
PAICUIII    =   GRMCII.J.K)    ♦  PAICUIII 
203  CONTI NUF 

RFTBI J.K 1 

=  BFTBIJ 

K) 

♦ 

PTBF 1  1 

J 

HNK  ) 

on  2^5  l=l,NWGP 

CFTBI J.K) 

=  CFTBIJ 

K) 

* 

PTCUI  I 

J 

HNK  ) 

IFITImF   .60.   0.01   GO  TO  205 

85 

CHTB(J.K) 
K    =    K    ♦  1 

=  CMTBI J 

K  ) 

PTMC 1  I 

J 

HNK  1 

P 4 ! P n ( I  )    -   PA  I  BO  I  I  I   /  TIME 
»A  1  CUI  1  1    =   PAIClll  1  1   /  TIME 

BFTBI J.K 1 

=  BFTBU 

K) 

PTBF  1  I 

J 

15) 

205  CONTINUE 

CFIB 1 J.K) 

=  CFTBI J 

X) 

P  T  C  U  1  1 

J 

C 

CHT8 ( J.K) 

=   CMTBI J 

K  ) 

PTMC  1  1 

J 

151 

c 

PRINT  PAGE   TYPF    13  -  WORKING  GROUP  AND 

90 

CONT  1 MUE 

c 

COMPUTE   TOTAL   VOLUMFj   By  WRKING  GROJP  AND  AGE  CLASS. 

DO  95   1=1 ,NWGP 
DO   95  J=1,NBK 
DO   95  K=l,15 

A8F  AG  I  I f  K )  =  ABPAGII.K)  »  PTBFII.J.K) 
95  AMCAGII.KI   =   AMdAGH.K)    »  PTHCIIiJtK) 

CONVERT   WORK   TOTALS   TO   A»FAS   AND  VOLJMFS    B  Y   BLOCK   AND  TYPE. 


210  WRITE  16,250) 
250  FORMAT   I  1 H 1 , / / , 60X , 1 2 HP AGE   TYP[  11) 
WRITE   l(>.255  ) 

255  F  OR  HA  T   ( 1  HO , // , 47X ,  36HV OLUMES  OF   BLOCKS  AND  WORKING  CIRCLE) 

WRITE    16,260)    (FORETII),  1=1,19) 
260   FORMAT    I1H   ,  29X  ,  1  8  A4 ,  A2  I 

WRITE  16,2651 

265  FORMAT   1 1  HO  ,  /  /  ,  2  3  X  ,  6HT0T  AL  S  ,  4X ,  1 1 HBLLXK   NO.    1 ,  4  X  ,  1 1HBL0C  K  NO.  2, 
14X.11HBL0CK    NO.    3,1.x,  11HBL0CK    NO .    4 ,  4X ,  1 1 HBLOC K    NO.  5,4X, 
21 1HBL0CK   NO.   6,4X, 11HBL0CK   NO.  71 
00  300   1=1 ,NWGP 


DO  100 

1  =  1 

N6K 

WRITE    (6,2701    I WGPNMI  1  ,  J  1  , J= 1 , 3 1 

DO  100 

J=  1 

27 

270 

FORMAT    I1H0,/  .1X.3A4) 

I  F  1  PSPLT 1  I 

Jl  .60. 

3. 

0) 

GO  TO  io: 

WRITE    16,275  1    STC ( I  1 , ( TCS P 1  I , J  I , J= 1 , NBK 1 

TEM  =   PARTYI 1 , J)  / 

PSPL 

T  1  I  ,  J  1 

275 

FORMAT    I1H0.13HTOTAL    CO.    F T  .  , 8 1 4 X , F 1 1 .  1  1  I 

PBFT 1  I 

J)  = 

PBFT | I 

Jl 

T6M 

WRITE   (6,280)   SMC ( I ) , (CHSPI I , J  I , J=l, NBK I 

PCMTI I 

J  )  = 

PCMT 1 1 

J  1 

TE" 

280 

F  OR  HA  T    ( 1HG, 14HMERCH.    CJ.    FT . , 8 (  3X , F 1  1  . 1 

1X1  1 

PCTAI 1 

J)  = 

PCTA 1 | 

J) 

TEM 

WRITE    I6.2B5I    SBFI I  I , (BFSPI I , J  I , J  =  1,NBK I 

PCTBII 

J)  = 

PCTBI 1 

Jl 

T  FM 

285 

FORMAT    (1H0.9HM   BO.    F  T .  ,  4  X ,  8  I  4X  ,  F  1  1  .  1  1  1 

PHLP 1 1 

J)  = 

PHLPI I 

Jl 

TFM 

IF!  I    .60.   4)   GO  TO  290 

POPNI I 

J)  = 

POPN 1  I 

J) 

T  FM 

GO  TO  300 

PPFN  1  I 

J)  = 

PPFNI I 

J  1 

TEM 

290 

WRITE  (6,2951 

pp:r  1  I 

Jl  = 

PPCRI I 

Jl 

T  EM 

295 

FORMAT   ( 1H1 ,//,56X,19HPA3E  TYPE   13,  CONT 

//  1 

PSLVI  I 

J)  = 

PSLV  1  1 

Jl 

TFM 

300 

CONTINUE 

pun;  i  i 

Jl  = 

PUNC 1 1 

J) 

TE" 

WRITE  (6,305) 

CONTINUE 

305 

FORMAT    (1H   »//»2X, 12 H TOTAL   VOLUM t , / , 3X , 8H0F   BLOCK  I 

COMPUTE   TOTAL  VOLUMES   OF   BLOCKS   AND  «0»<ING  CIRCLE. 


DO   105   1=1, NBK 

DO  105  J=l,27 

BFTHI I , Jl    =    BFTHI  | , J  I 


CTHH.jl  ♦ 

CUTAII.Jl  » 

CUTBII.JI  ♦ 

HELP  I  I , Jl  » 

openii.ji  * 

=  PDCFN(I.J) 
=  PDCFRII.JI 
SLVGII.JI  ♦ 
=  UNCML(IiJ) 


PBFTI  I, J  ) 
PCMT I  I , J  I 
PCTAI I , J) 
PCTBI  1 , J  I 
PULP  I  I , J  I 
POPN I  I  , J  ) 
»  PPFNII.il 

♦  PPCRI  I , J  I 
PSLVI  I, J  I 

♦  PUNC I  I  .  J  I 


CMTHI I , J) 
CUTA  I  1  ,  J) 
CUTBII ,JI 
HELP  I  I , Jl 
OPEN  I  I , J  I 

pd:fn( i ,J) 

POCFRI I , J  I 
SLV3 I  I , J  I 

on: ml 1 1 , j  i 

105  CONTINUE 

00  113   1=1, NBK 
00   110  J=l,27 

BFBLK (  I  I    =   BFBLK I  I  I    *  BFTBII.JI 

CFMER I  I  I    =  CFMERIII   ♦  CMTBI  I . J  I 

SSPT   =   SSPT   »   SPLT  I  I  ,  J  I 

SUNC   =   SUNC   »   UNC  ML I  I  ,  J  I 
1 1G    TCF  I  I  I    =    TCF  I  I  I    »    CFTBI  I , J  I 

DO  120  I=1,NBK 

SBDF  =  SBOF  ♦  BFBLK I [ I 

SCFM   =   SCFM  *   CFMER I  I  I 
I  2  J  STCF  =  STCF  ♦   TCF  I  I  I 

C 

C  COMPUTE   BLOCK  VOLUMES   BY  WORKING  GROJP. 


M    =  1 

N  =  5 

00  130  I=1,NWGP 
DO   125  J=1,N6K 
DO  125  K=  M , N 
BFSP I  I , J)   =  BFSP I  I , J  I 
CHSPI I , J  I 
TCSP ( I , J) 


CMSPI I ,JI 
TCSPII.J) 


BFTHI J.K  I 
CHTBI J, K ) 
CFTBI J, K ) 


H 


130  CONTINUE 


COMPUTE    VOLUMES    BY   WORKING  G«OJP. 


DO  135  I=1,NWGP 
00  135  J=1,N3K 
SBF I  I  I  =  SBF ( I  I 
SMC ( I  I  =  SMC  I  I  I 
135  STCI  I  I  =  STCI  I  I 
IFITMBR   .60.  O.C 


WRITE    (6,310)    STCF , (TCF ( I  I , I  =  1  ,N8K I 
310   FORMAT    ( 1H0.13HT0TAL   CU.    FT . , 8  I  AX , F  1  1  .  1  )  ) 

WRITE    16,315)   SCFM, (  C  FMER ( I  I, 1  =  1, NBK) 
315   FORMAT    ( 1H0, 14HMFRCH.    CU.    FT. ,8I3X,F11. 1,1X1) 

WRITE    (6,3201    SBDF , I BFBLK I  I  )  ,  1=  1  ,NEK I 
320  FORMAT    (1H0.9HM  BD.   FT . , 4X , 8 ( 4X , F 1 1 . 1  I  I 

WRITE  (6,3251 

325  FORMAT! 1H0, 1  OX , 47HCUB I C   FEET    IN  HUNDREDS,    BOARD  FEET    IN  THOUSANDS  I 

C 

C   PRINT  PAGE   TYPF   14  -  TYPE   AREAS   AND  VOLUMES. 
C 

WRITE  16,3501 
35:   FORMAT    I  1H1  ,// ,60X  ,  12HPAGE    TYPF  HI 
WRITE  16,3551 

355  FORMAT   I  1H0 ,  /  ,  39X ,  52IIT0T  AL  AREAS  AND  VOLUMES  OF   BLOCKS  AND  WORKING 
1  CIRCLE) 
WRITE    (6,260)    (FORETII),  1=1,19) 
KOUNT   =  1 
DO  395   1=1, NBK 

IFIARBKII)    ,E0.   0.0)   GO  TO  395 

IF (KOUNT   .EO.   II   GO  TO  365 

WRITE  (6,360) 
360  FORMAT   ( 1H1 , //,56X, 19HPAGE   TYPE   14,  CONT.//! 
365  WRITE  (6,3701 

370  FORMAT  (1H0,5HBL0CK,7X,4HTYPE,12X,5HTDTAL,12X,5HT3TAL,12X,6HMERCH. 
1  ,  13X,  1HM,  13X.5HACRES, 1 1 X , 6HNUHBER I 
WRITE  (6,3751 

375  FORMAT    (1H   ,1X,3HN0. ,9X,3HN0. , 12X, 5HACRES, 11X , 7HCU.   F T . , 1 1 X , 7HCU. 
1FT. ,9X,7HB0.   FT.,9X,8HL0W   S  I  T E , 7X , 1 OHOF  RECORDS, //I 
KOUNT  =  0 
DO  390  J  =  l,27 

WRITE    (6,3801  I,J,SAR6TYII,JI,CFT(MI,JI,CMTBII,JI,BFTB(I,JI,un:mL( 
1 1 , J  I ,SPLT I  1 , J  I 
380  FORMAT    I1H   , IX, 12, 10X,I2,9X,5( Fll . 1,6X I ,F6.0I 

I F ( J   . L T .   27  I   GO  TO  390 

WRITE  (6,3851 
385   FORMAT  (1H0) 
390  CONT I NUF 
395  CONTINUE 

WRIT6    (6,4001   THPO, STCF, SCFM, SBDF, SUNC, SSPT 
400   FORMAT    ( 1H0.6HT0TALS, 18X, 51 Fl 1.1, 6X 1 ,F6.0) 

WRITE  (6,325) 

RETURN 

END 


BFSPI I , J  I 
CMSPI I , J  I 
TCS  P I  I , J  I 

GO  TO  210 


Subroutine  SI  MRY 


COMPUTE    AREAS    BY    COMBINATIONS    OF    WORKING   CROUP,    BLOCK,    A  NO  AGE. 


DO  185  I=1,NWGP 
DO  180  J=1,NBK 
DO  183  K  =  l  ,15 

IFITPBII.JI    .60.   3.01   03  T3  180 
PAFNII.J.KI    =    PASPII.JI    *  PAFNII.J.K) 
PARGII.J.K)    =    PASPII.JI    «  nARGII.J.KI 

180  C0NTINU6 

185  C0NTINU6 

DO  190  I=1.NWGP 
DO  190  J=1,N8K 
DO  193  K=l,15 

ACFNLII.J.KI  =  ACFNLII.J.KI  *  P AT N I  I , J , K  I 
190  ACR;NII,J,K)    =  ACRGNII.J.KI    ♦  PARGII,J,KI 


TPHI  I  , J  I 
T  OP  I  I  , J  1 


COMPUTE   PERIODIC   ANNUAL  INCREMENT. 

DO  20C  I=1,NWGP 
DO  200  J=1,NBK 
DO  203  K=l  ,  1  5 


SUBRCUTINC  SUMRY 

TO  COMPUTE   DIFFERENCES  PCTWEFN  PRESENT  VOLUMES  AND  STOCKING  GOALS. 

COMMCN  AoO,AGE(2l,AG60,BAI2l,BASI2l,BASO,BAST,BAUS,BFMSCH,BFVOL, 
lCFV0L,OATE(6l ,OBHI 2  I ,  CBHF  ,  DBHO,  OBHT ,  OEN  I 2),DCNC,06NT,OMUS,FBA(2l. 
2FCTR(2I,FOm(2),FON(2),FHT(2I,FOr6T(19I,FVL(2I,HT(21,HTCUM,HTSO, 
3HTST,KAK,KNn,MIN,MNK,NBK,NCMP,NSUB,NWGP,P0BHE,PRET,PR00(2l,REST, 
4SAVC,SBAftB,SBAR6,SSA«G,S8AS,SIT6,SLANO,TBA(2),  TDM  (2l,TtM,TIMt,TMPP 
5,TMP0,T0T(2),TOTU,TOTT,TVLI2),VDM|2),VLUS,OMRI2) 

COMMON  APFAG(5,15),ACINT(5),ADJI5),AG6TH(5,14I,ALLCF(5,14) , ALOWC I  5 
1  I  , AL WBF 15  I  , AMCAG (5 , 15  I ,ANCUT I  5, 14)  , AR6AI 5, 14  I , BDMA I  I  5  I ,BFAG6 ( 5, 15  I 
2,8F1NT|5I,CFAG6(5,15),CF»F(5,14),C0MBF<5) .COMCUI 51 ,CUCY[5),CUINTI5 
31 , CUMA I  I  5  I , 0BHTH1 5, 14  1 , 06 L AY ( 5  I , DENT H( 5 , 1 4  I , DL 6 V ( 5  I , F NP U ( 5  I , 
4FNCUI 5  I .GROW" ( 5, ?, 14  1 ,GROWC I  5 , 2 , 14  I , GVLBF  1 5 ) ,GVLCUI 5),INVLI5,3,14I 
5,NSI|5),0PBDI5I,nPCU(5),PAIBC(5l,PAICUI5l .POOR  I  5 1 , KEGN I  5 . 3 , 14  I , 
6RINTI5) ,SARSP( 5) ,SBF( 5) ,SHELT(5,2, 1A) , SHwOI 5,2. 14) ,s"C I  5  I , SMS  PI  5  I , 
7SUBBF (5,14) , SUBCFI 5, 1 4  I , SUMCFI 5 l,SYSTI5),THINI5),VLLVI5,3,14), 
RWGNU" I  5  I , WGPOES 15,20) ,WGPNM| 5, 3 ) , SPNUMI 5 ),TPh(5,7),PASP|5,7l 

COMMCN  ACBAR(7),4RBKI7),BArSI(7,14I,BFTh(7,27I,CMTH(7,27),CUTA(7,2 
17),CUTh(7,27),HELPI7,27),NSBK(7l,OPENI7,27l,PCRSI('7,14),P0CFM7I:7 
2I.PDCr°l7,27|,PSPLT(7,?7) , PUNC I  7, 27) ,SARETy(7,35I,SLVG(7,27I,SPLT( 
37,271  ,TMTY(7I  ,UNC"LI 7 ,?7I  , PARR |7|,PAPTY(7, 351 

COMMON  ACFNL I  5 ,7 , 1' I , ACRGNI 5, 7, 15  I , ACSI I  5, 7, 14 | ,AC  SP I  5, 7) ,GRBD( 5,7 
I,15),r-,PMCI5,7,15),PS(5,7,14),STYPI35),TYPN«"(35,5),PASI(5,7,14) 


3  7 


COMMON    /8LKC/  ANNAC,AN.\!8D,ANNCU,FINR(5),FINC(5),FNAC(5),RGAC(5), 
1RGBDI  5  ) ,RGCU( 5  )  ,SAHP(  5  ) ,  SANCUT! 5  >,SATH(5>,SRFR(5),SBH(5),SRSV(5), 
2SCA(5.7I,SCBI5,7I,SCNI5),SCN8I5.7),SCNTI25),SCR(5).SCRB(5,7>, 
3SCRT(25),SCU(5.7),SCUR(5).SFNL(5I,SFR(5),SHL(5,7I,SIDLA,SI0LB, 
4SIDLC,S0P(5,7),S0PTA(5),S0PTBI5>,  SOPTCI  5>,SSL(5,7),STBSI25),STFO 
5I25),STHP(25I,STHR(25),STLV(25I,STNC(25>, STONI  25 ) , THAC I  5 ) , THBD I  5 ) , 
.    6THCU(5),T0T4C(5I, TOTBO ( 5 1 . TO TCU ( 5 1 ,SBM( 5 i 7 ) 

COMMON  /BLKF/  RAB0F(5),RA8DI(5),RAB0R|5),pnBTI5>,RACFN(5l,RACIT(5) 
I.RACRGI5) ,RATC<5 I.SRABD,  SRACF 

DIMENSION  OFBFI5,15),CFMC(5,15),SDBFI5>,SCMC(5l 

INITIALIZE    VARIABLES    COMPUTED    RY    THIS  ROUTINE. 


.60X.11HPAGE   TYPE  31 


DO  1  1=1 
FINBI I  ) 
FINCI  I  ) 
FNACI  I  I 
RABOF ( I  I 
RABDl  [ I  I 
RABDR  i  I  I 
RABTI I  ) 
RACFNI I  I 
RACITI  I  1 
R  AC  R  G (  1  I 
RATC (  I  1 
RGAC  I  I  I 
RGBDI I  I 
RGCUI I  1 
SAHPI  I  I 
SANCUT ( I 
SATH (  I  ) 
SBFR  (  I  I 
S8HIII  = 
SBSVI  I  1 
SCN(I)  ■ 
SCRII)  = 
SCUR  I  I  I 
SDBF  I  I  ) 
SDMC ( I  I 
SFNLI  I  I 
SFRI  I  1  = 
SOpTA  I  I  I 
SOPTBI  I  I 
SOPTCI  I  1 
THAC (  I  I 
THBD  I  I  I 
THCUt  I  I 
TOTACI  I  ) 
TOTPD (  I  I 
TOTCU  (  I  I 
DO  1  J=l 
SBMI I , J  I 
SCAI I , J ) 
SCBII , J I 
SCNB  (I  ,  J 
SCRBl I , J 
SCLM  I  .J  ) 
SHL  1 1  .  J) 
SOPH  ,  Jl 
SSL  I  I , J  1 

1  CONTINUE 
DO  3  1=1 

3  TOT  III  = 
00  5  1=1 
DO  5  J=l 
DFBFI I , J 

5  DFMCII.J 
DO  10 
SCNTI I 
SCRTI  I 
STBS!  I 
STFOII 
STHPII 
STHRI I 
STLVI  I 
STNC  I  I 
10  STONII 
ANN  AC 
ANN8D 
ANNCU 
SIOLA 
SIDLB 
SIDLC 
SRABD 
SRACF 
STHBF 

sthcm 


NWGP 
=  0.0 
=  0.0 

=  0.0 
=  0.0 
=  0.0 
=  0.0 

=  0.0 
=  0.0 
=  0.0 
=  0.0 

=  0.0 

=  0.0 
=  0.0 
=  0.0 

■  0.0 

1  =  o.c 

=  0.0 
=  CO 

0.0 
=  0.0 

0.0 

0.0 
=  CO 
=  0.0 
=  0.0 
=  0.0 

0.0 

=  0.0 

=  0.0 


0.0 
0.0 


,NBK 
=  0. 


=  0. 
=  0. 


i  NWGP 
.15 

)   =  0.0 
I   •  0.0 
1.25 
=  0.0 
=  0.0 
=  0.0 


0.0 
0.0 


C  COMPUTE  DIFFERENCES  BETWEEN  ACTUAL  AND  DES IR  EC  GROWING  STOCKS. 
C 

DO   15   1=1. NWGP 
DO  15  J=1.15 

DFBFII.J)   =  ABFAGII.JI   -  BFAGEII.I) 
15   DFMCII.J)   =   AMCAG(I.J)   -  CFAGEII.JI 

C 

C  COMPUTE   TOTAL  DIFFERENCES   BETWEEN  ACTUAL   AND  DESIREO  STOCKS. 
C 

DO  20   1=1, NWGP 
DO  20  J=1.15 

SDBF  II)   =   SDBF  II)   +  DFPF I T , J  1 
20  SDMCII)    =  SOMCIII    ♦  DFMCII.J) 


30   FORMAT  (1H1, 
WRITE  (6,32) 

32   FORMAT   I 1H0 . 34X . 58HCCMPAR I  SON  OF   ACTUAL   GROWING   STOCK  WITH  GROWING 
1   STOCK  GOAL ) 
WRITE   (6,34)    (FORET(l), 1=1,19) 
34  FORMAT    (1H  .29X.18A4.A2) 

WRITE    (6,36)    (WGPNMIKA, J ) , J=l, 3 ) 
36  FORMAT    I 1H0.53X, 16HW0RKING  GROUP  -  ,3A4,/) 
WRITE  (6,381 

38   FORMAT    (1H    , 3 9 X , 52 HTHCUS AND S   OF   BOARD   FEET    IN   TREES   OF  COMMERCIAL 
1  SI 2E.  ) 
WRITE  (6,40) 

40  FORMAT    I 1H0, 12X, 3HAGF , 1 IX , 14HACTUAL  GROWING, 10X, 1 3HGR0W I NG  STOCK, 1 
1  5X.6HV0LUME ,15X,9HSTATUS   OF  I 
WRITE  (6,421 

42   FORMAT    ( 1H   , 11X, 5HCLASS, 14X, 5HST0CK, 19X.4HG0AL , 18X, lOHOIFFERENCE, 1 
1 IX, 1 3HACTUAL  VOLUME./) 
DO  70  1=1.15 

J  =   I   *  10 

I F ( OFBF I KA, I  I  .LT.  0.01  GO  TO  50 
IF  I DFBF (KA, I  I    .EO.   0.0)   GO  TO  60 

WRITE    (6,45)    J , ABF AG! KA, |  ) , BF AGE  I K A,  I ) , DFBF I KA,  I  I 
45    FORMAT    I1H    ,12X, 13, 11X.F14. 1, 9X, F14. 1, 9X, F14. 1 , 14X .7HSURPLUS) 

GO  TO  70 

50   WRITE    16,55)    J , ABF AG  I K A  ,  1  )  ,  BF AGE  I K A ,  I  I  ,  OFBF I K A ,  I ) 
55  FORMAT   UH   ,  1 2X,  13  ,  UX,  F14. 1 , 9X .  F14 .  It 9X  ,  F 14  . 1 ,  14X,  7HDEF ICIT  ) 
GO  TC  70 

60   WRITE    (6,65)    J, ABFAGI KA, I  I , BFAGElK A, I  I ,DFBF (KA ,  I  ) 

65  FORMAT   I1H   , 12X, I3,11X,F14. 1,9X,F14. 1,9X, F14.1, 14X , 7HC0RR EC T ) 

70  CONTINUE 

WRITE    (6,75)    SBFIK A) , GVLBFI KA  )  , SOPFI K A  I 
75    FORMAT    (  1 HO , 1 1 X , 5HT0T AL ,  1  OX , F  1 4 . i , 9X , F 1 4 . 1 , 9 X , F 1 4 . 1 , / I 

WRITE  16,80) 

80  FORMAT   I 1H0, 31X,67HHUNDREDS   CF  MERCH.   CUBIC  FEE 
1ES  D.B.H.   AND  LARGER,/ ) 

WRITE  16,401 

WRITE  16,42) 

DO  95  1=1,15 

J  =   I   *  10 

I F I OFMCI KA, I ) 

IF(0FMC(KA,I  ) 

WRITE    (6,45)  - 

GO   TC  95 
85   WRITE    (6,55)  J 

GO  TO  95 

90   WRITE    (6,65)_  J.AMC  AG  (  KA,  I  )  .CFAGEI  K  A,  I  I  ,  OFMCIKA,  I  I 
95  CONTINUE 

WRITE    (6,75)    SMC1KA I ,  SUMCFI K A ) , SDMCI KA  ) 
ICO  CONTINUE 

C 

C   SUMMARIZE   VOLUMES   EXPECTED  DURING  NEXT   PERIOD  By   BLOCK  AND  TYPE. 
C 

M    =  1 

N  =  5 

DO  115  K=1,NWGP 
DO  110   1=1, NBK 
DO   110  J=M,N 
SBMlK,  I  I    =    SBMIK,  I  )  ♦ 
SCAIK.I )    =    SCAIK, I )  ♦ 
SCBIK, I  I   =   SCBIK, I  I  + 
.    SCNBIK, I !    =  SCNB ( K , I  I 
SCRBIK.I )   =  SCRBIK, | I 
SCU I K, I  I    =   SCUI K, I )  ♦ 


IN   TREES   b.Z  INCH 


.LT.  0.0)  GO  TO  B5 
.ED.   0.0)   GO  TO  90 

,AMCAG( KA, I )  ,CFAGE(KA,  I  ) , OFMC ( K  A ,  I  ) 
, AMCAGI KA, 1 ) , CFAGEI K A, I ) ,DFMC I KA, I ) 


SHL  IK,  I  ) 
SOP  I K , I  ) 
SSLIK,  I  1 


SHLIK, I ) 
SOPIK, I ) 
SSL  IK, I  I 

110  CONTINUE 
M   =   M   +  5 
N  =   N  +  5 

115  CONTINUE 

DO  120  1=1, NBK 
00  120  J=l,25 
SCNTIJ)  =  SCNTIJI 
SCRTIJI  =  SCRTIJI 
STBS(J)  =  STBSIJ) 
STFOIJ)  =  STFO(J) 
STHP(J)  =  STHP(J) 
STHR(J)  =  STHR(J) 
STLVIJ)  =  STLV(J) 
STNC(J)  =  STNCIJ) 
STON(J)   =  STCN(J) 

120  CONTINUE 

DO  125  1=1, NWGP 
DO  125  J=1,NBK 
SAHP(I)  =  SAHP(I) 
SATHI I )  =  SATHI  I  I 
SBFR ( I  )  =  SBFRI  I  I 
SBHI  1 )  =  SBHI I )  ♦ 
SBSVI I )  =  SBSVIII 
SCN I  I  I  =  SCN I  I )  ♦ 
SCRII)  =  SCRII)  ♦ 
SCURI I  I  =  SCURI  I ) 
SFR  I  I  )   =   SFR (  1  )  ♦ 

125  CONTINUE 


BFThI  I , J  1 
CUTAI  I , J  I 
CUTRI I , J ) 

*  PDCFNII.J) 

♦  PDCFR ( I , J ) 
CMTH(  I , J  I 
HELP! I , J ) 
OPEN  I  I , J  I 
SLVG I  I , J  I 


PCCFM  I ,  J  ) 
PCCFR I  I , J ) 
BFTHI I , J ) 
CUTB( I , J  I 
HELP!  I ■ J  I 
CUTAI I , J ) 
SLVGI I , J  I 
CMTHI I , I  I 
OPEN (  I , J  I 


♦  SFLI  I , J  I 
+  SOPI I.J) 
t  SBMI I.J) 
SCAI I.J) 

♦  SSL ( I  .J  I 
SCNDI I.J) 
SCRBl  I  ,  J  1 

♦  SCUI 1 »  J ) 
SCB I  I , J  I 


PRINT  PAGE   TYPE   3  -   ACTUAL  AND  DESIREO  GROWING  STOCKS   AND  DIFFERENCES . 

00  100  KA=1,NWGP 
WRITE  16,301 


C  SUM  THE  ANNUAL  CUTS  BASED  ON  OPTIMUM  AREA  REGULATION  BY  WORKING  GROUP 
C   AND  WORKING  CIRCLE. 

C 

DO   130   1=1, NWGP 
DO  130  J=l ,14 
130    SANCUT(I)    =   SANCUTII)    *  ANCUTII.JI 
DO   135    1=1, NWGP 
SFNL III    =   SANCUT I  I  ) 

I F I S  Y  ST  I  I  )    .EC.    0.01    SFNLII)    =  0.0 
K  =   PCORI I )   *  0.1   ♦  0.5 

IF IREGNI  I  ,  3,K )    .GT.    0.01    SANCUTII)    =    SANCUTII)    *  2.0 
135  CONTINUE 

DO   140   1=1, NWGP 

SOPTA(I)    =   SANCUTII)    ♦   SFNLII)    +  ACINT(I) 


3  8 


FNBOI  1  )    t   BF  INT  I  I  I 
FNCUI II    *   CUINT (!) 
.EQ.   4HDEFE)   GC  TO  140 
+  SOPTAI  I  I 

♦  SOPTP I  I ) 

♦  SOPTC I  I ) 


SOPtBI  1  I    =   0P8D(  I  I 
SOPTC ( I )   =  OPCUI I  I 
IF  (WGPNMI  1,11 
SIDLA   =  SIDLA 

siolb  =  sine 

SIOLC  =  SIDLC 
WO  CONTINUE 

COMPUTE   POSSIBLE   ANNUAL  CUTS  DURING  NFXT  PERIOD  -  BASIS  WORK  INOEX. 

DO  150  I=1,NWGP 
DO  150  J=1,NBK 
DO  150  *= 1, 15 

RGACIII   =  RGACIII   ♦  ACRGN(I,J,KI 
15:   FNAC(I)    =   FNAC(I)    ♦  ACFNLII.J.KI 
TEH  =   1.0  /  TIME 
UO   155  I=1,NWGP 


SF  x I  I  I   «   T  =  M 
SCN(I)   *  TEH 
FNACI I )    *  T  EM 
PGACI I  I   ♦  T EM 
SBH  I  I  I   *  TrH 
SCR  I  I )    *  TEH 


F  INB( I  I 
F  INC  I  I  I 
F  N AC (  I  I 
RGAC I  I  I 
RGPOI I ) 
RGCUI 1  I 
THAC I  I  ) 
THBDI I  I 
THCUI I  I 
155  CONTINUE 

DO  160  I=l,NWGP 
TOTAC { I  )    =   RGAC ( I  I 
TOTCUI I )    =   RGCUI  I  I 
T0T6CI I  I    =   ft G B 0 (  I  I 
ANNAC   =  ANNAC 
ANNCU   =  ANNCU 


(SATHI  I  I 
SBFRI I ) 
SCUR I  I ) 


re  •> 


F  N  AC  I  I  I 
FINCI  I  ) 
F INBI  I  I 
TOTAC  I  I  ) 
TOTCUI  I  I 


THACI  I  I 
THCUI  II 
THROI  I  ) 


160   ANNBD   =   ANNBD   ♦  TnTBPIII 

C 

C  COMPUTE  ANNUAL  CUT  BY  HEYFft  FORMULA  USING  M.A.I.  FROM  YIELD  TABLES. 
C 

00  210  I=1,NHGP 
IFIADJIII    .EO.  0.0)   GC  TO  190 
ALWBF(I)   =  BPHAI ( 1 }   ♦   (SDBF(I)   /  ACJIIII 
CUMAI I  I )    +    I SDMCI  I )    /   AOJ (II) 


ALOWC  I  I  I 

GO  TO  200 
1  JO   ALWBF I  I  I    =   BDHA I ( I  I 

ALOWC I  I  I  =  CUHAI ( I  I 
200   I  F I ALWBF I  II    .LT.  0. 

IF ( ALOWC! I >  .LT.  0. 
213  CONTINUE 

DO  220  I=1,NWGP 

I F I WGPNHI I , 1  I  .EC. 

T0TI1)  =  alWBFII)  * 
220   TOT  12  I    =   ALOWC! I  I  + 


♦  SDBF! I ) 

♦  SOMCI  I  I 
01    ALWRFI  I  I 
0)  ALOWCII) 


4HCEFE)   GO  TO  220 
TCT! 1  I 
TCTI2) 


COMPUTE   AREA   REGULATION  VOLUMES   FOR   THIRD   TABLE  ,    PAGE    TYPfc  1. 
CHANGE   MULTIPLIER  OF  RACIT  AND  RABDI    IF  GOAL  OF  ONE  PR ECOMMERC I AL 
THINNING    IS   NCT  APPLICABLE. 


0.1  ♦ 


DO  230   1=1. NwG 
I F I RGAC III    . L  E 
RACRGI1I  = 
RABDR1II  = 

226  IFIFNACIII 
R  AC  F  N  (  I  I  = 
ftABOF I  I  I  = 

228  IF(SATHII) 
K  =  POORII 
IF I R  EGN I I ,  3  ,  K  )  . GT  . 
RACITI I  I  =  ITHCU!  I  I 
RABDI  111    =    1 ThBD! I  I 

230  CONTINUE 

DO  240  I=1,NWGP 
R AT C I  I  I   =  RACRGI  I  I 
RABT III    =   RABUR I  I  I 

24  j  CONTINUE 

DO  250  I=1,NWGP 
SRACF   =  SRACF 
S  R  ABO  =   SR  ABO 

253  CONTINUE 
RETURN 
END 

Subroutine  GIDE1 


0.0)  GO  TO  226 
IRGCUIII  /  RGACIDI 
IRGBDI I  I  /  RGAC I  I  I  I 
.LE.  0.0)  GO  TO  228 
(FINC(I)  /  FNACII)) 
(FINB! I  I  /  FNACI I  I  I 
. LE .   0.0)   GO  TO  230 


SANCUT!  I  I 
SANCUTI  I  I 


SFNL I  I  I 
SFNL I  I  I 


".3  1    SANCUTI  1  )    =   SFNL I  I  I 


I SATHI  I  I 
I  SATHI  I  I 


RACFNI  I  I 
RABUF I  I  I 


T6M)  ) 
TEM  I  I 


(ACINTI  I  I  -  SANCUTI I  I  I 
I  AC  INT  I  I  I    -   SANCUTI  I  I  I 


KACITI  I  I 
RABDI  I  I  I 


RATCI  I  I 
RABT I  I  I 


SUBROUTINE  GI0E1 

PRINT   PAGF    TYPE    1   -   SUMMARY  OF   RESULTS   AMD  GUIDE   TO   MANAGEMENT . 

COMMON  AOO,AGE(2I,AGCC,BAI2),BAS(2)IRASO,BAST,BAUS,BFMRCH,BFVGL, 
1CFv0L,0ATE(6I,0BH|2I , OBHE , OBHo , DBHT , DEN  I 2),DENO,OENT,DMUS,FRSI2), 
2FCTR(2),FDM(2I,FCNI2),FHT(2I,FORETI19),FVLI2>,HT(2),HTCUM,HTSO, 
3hTST,KAK,KN0,M|N,mnk,N8K,MCMP,NSUB,Nw0P,PCRHE,pRET,PROD(2),REST, 
4SAVE,SRARR,SBARE, SPARC, S»AS, SITE, Sl AND, THAI2) ,TDuI 2) , TEH, T IMF ,  TMPR 
5 , TMPC, TOT! 2 ) , TOTO, TOTT.TVL I  2  I ,VDH( 2) , VLUS.OMR I  2  I 

COMMON   ABFAG(5,15),ACINT(5I,ADJ(5),AG£THI5,14),ALLCF(5,14) , ALOWC I  5 
1I,ALWBFI5),aHCAgI5,15  ) ,  ANCUT  l5,l4>,AftEA(5,14l,BDMAI(5l  .  BF  AGE  15,15} 
2,BFINT(5),CFAGE(5,l5),CFBF(5,14),COM!>FI5  )  .COMCUI  5  ),CUCYI5I,CUINTI5 
3l,CuMAI(5l,DBHTHI5,14l,nFLAYI5l,DFuTHI5,14l,OLEV(5),FMBOI5l, 
4FNCU(5),GRCWBI5,2,14),GrOWCI5,2,!4I,GVL8F15),GVLCUI5),1NVLI5,3,14I 
5,NSII5I,0PHD15),UPCU(5),PAIPD(5I,PAICU(5I  .POOP.  I  5  )  ,  REGN  (  5 ,  3  , 1 4  I  , 
6RINTI5l,SARSPI5),SBF(5),SHFLT(5,2,14),SHWn(5,2,14),SHC(5),SMSP(5), 
7SUBBFI5,14),SURCFt5,14),SUMCFI5],SYSTI5l,THr;l5),VLLVIS,3,14l, 
SwGNUMI  5  )  ,  WGPOES  I  5,  20  I  ,WGPNM(  5.3  )  ,  SPNUMI  5).TPlil5,7),PASPI5,7l 

COMMON  ACBAR(7),ARRKI7l,RARSII7,l4>,BFTH17,27),CMTH(7,27l,CUTA|7,2 
17),CUTBl7,27).HELPI7.27),NSBK|7),OPEN(7,27),PBRSl(7,14),PDCFM7,27 
2  I ,PDCFR ( 7,27 ),PSPLT(7,27), PUNC ( 7 , 27 ) , SAP E TY I  7 , 35 1 ,SLVC(7,27),SPLT( 
37,27),TMTY(7),UNCML(7,27),PABR(7),PARTY(7,35) 

COMMON  ACFNL(5,7,15),ACRGN(5,7,l5),ACSII5,7,14),ACSP(5,7),0RBD(5,7 
1,15),GRMC(5,7,15),PS(5,7,14),STYPI35),TYPNM(35,5I,PASII5,7,14) 


CCHMCN  /BLKC/   ANNAC, ANNBD, ANNCU, F I NB I  5 ) , F I NC I  5 ) , F N AC ( 5  I , R G AC ( 5  I , 
1RGBDI5I,RGCUI5),SAHPI5) , SANCUT I 5),SATHI5),SBFRI5),SBHI5),SBSVI5I, 
2SCA(5,7),SCB(5,7|,SCN(5),SCNP(5,7),SCNTI25),SCR(5),SCRBI5,7), 
3SCRTI2s),SCUI5,7),sCuRI5),SFNL(5),SFRI5), SHL! 5, 7 ) , S I DL A . S I DLB , 
4SIDLC,SCP(5,7l,S0PTAI5),SOPTBI5),SOPTCI5),SSL(5,7),STBS(25),STF0 
5125), STHP 125), STHR (251, STLVI 25) , STNC (25 ) , STON ( 25  I , THAC ( 5  I , THBD I  5 ) , 
6THCU(5),T'.1TAC(5),T0TED(5I,TCTCU(5I,S6M(5,7I 

CCMMCN  /BLKS/  PAB0F|5|,RAU0H5I,RABDR(5),RABT(5),RACFN(5> ,RACIT(5 ) 
l,RACRG(5),RATC(5l,SRABD,sRACF 

DIMENSION  A(3) 

DATA  A/3«1H  / 

CURS  =   SLAND  -  STYP( 321 
WRITE  16,505) 
505  FORMAT    I 1H1 , 59X, 1 1HPAGE   TYPE  1) 

WRITE    16,5101    IFGRETIII,  1=1,19) 
510   FORMAT    UHC',/ ,  10X  ,21HGU  IDE   FOR   MANAGEMENT  ,18A4,A2) 

WRITE   (6,515)    (CATEI  I  I,  1=1,6) 
515  FORMAT   ( 1H0,5X,25HBASE0  UN  DATA  CURRENT  TO  ,6A4) 

WRITE  (6,520)  SLAND.OURS, STYPI 32  I ,TMBP, SHARE, STYPI 31 ) , STYPI 28) 
520  FORMAT  1 1  HO , 3 1HTHE  WCRKING  CIRCLE  CONSISTS  OF  ,F10.1,18H  ACRES.  OF 
1  THESE.  ,F10.1,29H  ACRES  ARE  OWNED  BY  U.S.  AND  ,F10.1,19H  ACRES  AR 
2E  IMTERI0R/1H  .45HTRACTS  OF  OTHiR  OWNERSHIP.  OUR  AREA  INCLUDES  ,F1 
30.1.17H  TIMBERED  ACRES,  ,Fl0.1,18H  PL  ANT  ABL  E  ACRES,  ,F10.1,17H  ACR 
4ES  MANAGEC  AS/1H  , 11HRANGE,  AND  ,F10.1,106H  ACRES  OF  HIGH  RECREATI 
5 ON  USE  WHERE  TIMBER  YIELDS  ARE  INCIDENTAL  AND  NOT  REGULATEC.  SEE  P 
6AGE  TYPE  5,  6,  7,/lH  , 3 1  HAND  14  FOR  AREA  CLASSIFICATION.) 
WRITE  (6,530) 

530  FORMAT   I1H0,70HTHE   TIMBER   RESOURCE  OF  THIS  WCPKING  CIRCLE   WILL  BE 
1HANAGEC  AS  FOLLOWS-  I 
00  560  I=1,NWGP 

WRITE    16,550]    (WGPNMI I ,J) ,J=l ,3) , (WGPDESI I,K) ,K=1,20) 
550  FORMAT   (1H   ,15X,3A4,3H  -  ,20A4I 
560  CONTINUE 

WRITE  16,570) 

570  FORMAT   ( 1 HC, 5 8hR EGUL a T I  ON  OF   THE  CUT  WILL   BE   BY   AREA  WITH  A  VOLUME 

I  CHECK.) 
WRITE  (6,575) 

575   FORMAT   ( 1H0, 125HWITH  THE  DECISIONS  AND  AREAS  ON  PAGES  TYPE  4  AND  1 

II  AND  WITH  BALANCED  DISTRIBUTION  OF  AGE  CLASSES,  ALLOWABLE  ANNUAL 
2CUT  W0UL0/1H   ,14HBE   As  FOLLOWS- ) 

WRITE  (6,580) 

580  FORMAT   I  1  HO , 64X , 1 1 HHUNDR C DS  OF/lH   , 42 X , 5H ACRE S , 1 9X , 7HCU.  FT.,17X,9 
1HM  BO.   FT. ) 

WRITE  (6,590) 
i90   FORMAT    ( 1HC, llx, 17HREGENEPAT ION  CUTS,/) 

DO  6C5  I=1,NWGP 

K  =   PCCR  (II   *  0.1  -t  0.5 

IF  (REGM  1  , 3  ,K )    .GT.   0.0)    SANCUTI  I)   =   SANCUT(I)   *  2.0 

WRITc    (6,6001    I wGPNMl  I  , j  )  , j=  \  , 3 ) , SANCUT (I  )  , OPCUI I ) ,0PBDI 1  I 
600  FORMAT   (  1H   , 15X.3A4, 1 1X.F11 .1, 14X,F11. 1. 14X,FU .1 ) 
6C5  CONTINUE 

WRITE  16,6101 
610   FORMAT    I 1H0, llx , 18HF INAL   REMOVAL  CUTS,/) 

DO  615  I=1,NWGP 

WRITE    16,600)    I WGPNMI  I , J)  ,  J=l  ,3 >  ,SFNL(  I  I  , FNCUI  I  )  ,FNBDI  I  I 
615  CONTINUE 

WRITE  (6,620) 
620  FORMAT   ( 1HD, 1 lx, 1THINTFRMFDI ATF  CUTS,/) 

DO  625   1=1 ,NWGP 

WRITE    (6  ,6001    (WGPNMI  I  ,J )  ,J=1  ,  3)  ,  ACINTI I ) ,CulNT( I )  ,8F  INT(  I  ) 
625  CONTINUE 

WRITE  16,6301 
630  FORMAT    I 1H0 , 11 X , 18HTCT AL  FOR  ONE  YEAR,/) 

DO  635  l=l,NWGP 

WRITc    16  ,600  1    I WGPNHI I , J ) , J= 1 , 3 ) , SOPTAI I ) , SOPTC I  I ) , SOPTBI I  I 
635  CONTINUE 

WRITE    (6,640)   SIDLA, SIDLC, SIDLB 
640   FORMAT    I 1HC , 1 1 X, 1 6HTCT AL    ALL   GROUP S ,  1 1 X , F  1 1  .  1 , 1 4 X , F 1 1 . 1 , 1 4 X , F 1 1 . 1  I 

WRITE  (6,650) 

650  FORMAT   ( 1 HO , 1 X , 6 2HT0T AL   ALL   GROUPS  DOES   NOT   INCLUDE  DEFERREO  GROUP 
IS,    IF  PRESENT.) 

WRITE  (6,665) 
665  FORMAT   I 1H1 , //, 56X, 1RHPAGE  TYPE   1,  CONT.I 

WRITE  (6,6701 

670  FORMAT  I  1H"> ,  1  23HCNL  Y  COMMERCIAL  VOLUMES  ARE  INCLUDED  II  THE  TABLES 
1  OF  PAGE  TYPE  1.  CUTS  ARE  ASSIGNED  TO  BOARD  FOOT  TOTALS  IF  PCSSI8L 
2E.  ThEY/IH  ,124  H  APPEAR  I  ,N  CUPIC-rorT  TOTALS  ONLY  WHEN  COMMERCIAL  S 
3AWL0G  CUTS  ARE  NOT  POSSIBLE.  AREAS  OF  INTERMEDIATE  CUTS  INCLUDE  AC 
4REAGE  CF/1H  ,35HN0NCrMMERCIAL  SHOWN  ON  PAGE  TYPE  2.) 
WRITE  16,680) 

680  format  i  1h-, ,  1 25hactual  volumcs  cut  during  the  next  pcrioo  coulo  bf 
1  as  shown  on  pagfs  type  2  if  all  possible  cultural  operations,  as 
2 Indicated/ ih  ,68hby  wcrk  codcs,  werf  performed,  potential  annual  c 
3uts  would  then  be — 1 

WRITfc  (6,580) 
WRITE  (6.59C) 
DO  700  I=1,NWGP 

WRITE    (6,6001    I WGPNMI  I , J  I , J= 1, 3  I , RGACI  I  I , RGCUI  I  I ,RGBOI  I  I 
700  CONTINUE 

WRITE  (6,610) 

DO  705   I =1 ,NWGP  ■ 

WRITE    lh,600)    I WGPNMI I , J  I , J= 1 , 3  I , FNACI  I  I , F INCI I  I ,F INB I  I  I 
705  CONTINUE 

WRITE  (6,620) 
DO  710  l=l,NWGP 

WRITE    (6,600)    (WGPNHI  I , J |  ,  J=l,3 I  ,THACI  I  I , THCUI I  I , THBDI I  I 
710  CONTINUE 

WRITE  (6,630) 
DC  715  I=1,NWGP 

WRITE    I6,60CI     I WGPNMI  I  , J )  , J  =  1 , 3 )  , TOTAC I  I  I  , TOTCUI  I  I  ,T0T8D(  I  I 
715  CONTINUE 

WRITE    16,6401    ANNAC, ANNCU, ANNBD 
WRITE  (6,665) 
WRITE  16,720) 


39 


720  FORMAT   (1H0.109HTHE  FIRST  TABLE,   ABOVE,   REPRESENTS  YIELDS  FROM  ARE 
1A  REGULATION  WHEN  VOLUME  AND  AREA  GOALS  HAVE  BEEN  ATTAINED.) 
WRITE  (6,725) 

725  FORMAT   (1H0.50HTHE  SECOND  TABLE  CAN  REPRESENT  AREA  REGULATION  IF-/ 
11H   ,8X,48H<1>   VOLUME   AND  AREA  GOALS  HAVE  NOT  BEEN  ATTAINE0/1H  ,8X, 
296HI2)   WORK  CODING   IS   SUCH  THAT  THE  AREA  VALUFS  OF  THE   SECOND  TABL 
3E  EQUAL  AREAS  OF  THE   FIRST  TABLE.) 
WRITE  (6,730) 

730  FORMAT   (1H0.87HIF  NEITHER  OF  THESE  ALTERNATIVES   APPLY,   YIELDS  FROM 
I   AREA  REGULATION  WILL   BE  AS   FOLLOWS- ) 
WRITE  (6,580) 
WRITE  (6,590) 
00  732  I=1,NWGP 

WRITE   (6,600)    ( WGPNMI I , J ) , J=l ,3) , SANCUTI I ) ,RACRG( I ) .RABDR ( 1 ) 
732  CONTINUE 

WRITE  (6,610) 
00  731  I=1,NWGP 

WRITE    (6,600)    I WGPNMj I , J) , J=l ,31 , SFNLI I ) ,RACFN( I ) ,RABDF( I ) 
734  CONTINUE 

WRITE  16,620) 
DO  736  I=1,NWGP 

WRITE    16  ,600)    ( WGPNMI I , J) , J  =  l,3> , ACINTI  I ) .RACITI I ) ,RABDI ( I  I 
736  CONTINUE 

WRITE  (6,630) 
DO  738  I=1,NWGP 

WRITE   (6,600)    (WGPNMI I , J) , J=l,3) , SOPTAI I  I ,RATC(  I  ),RABT( I ) 
738  CONTINUE 

WRITE   (6,640)  SIDLA.SRACF.SRABD 
WRITE  (6,665) 
WRITE  (6,740) 

740  FORMAT    ( 1H0, //, IX, S5HF0RMULA  COMPUTATION  OF  ALLOWABLE  ANNUAL  CUT. 
1CUBIC-F00T  VOLUMES   INCLUDE  SAWLOG  TREES- ) 
WRITE  (6,745) 

745  FORMAT   ( 1H0 , 1 IX , 79HHE YER  FORMULA  WITH  M.A.I.   FROM  OPTIMUM  YIELD  TA 
1BLES  AND  COMPUTED  GROWING  STOCKS) 
WRITE  (6,750) 

750  FORMAT   I 1H0 , 42X , 10HAD JUSTMENT , 12X , 11HHUNDRE0S  0F/1H  , 44X , 6HPE R 1 00, 
1  16X , 7HCU.   FT..17X.9HM   BO.  FT.,/) 
DO  755  I=1,NWGP 

IF( WGPNMI I ,1 )    .EQ.   4HCEFE  )   GO  TO  755 

WRITE   (6,600)    ( WGPNMI I , J ) , J=l,3) , ADJ( I ) , ALOWCI I > , ALWBFI I ) 
755  CONTINUE 

WRITE   (6,760)   TOT ( 2  I , TOT (  1  I 
760  FORMAT   ( 1H0, 15X , 5HT0T AL , 43X , F 11 . 1 , 14X , Fl 1 . 1 ) 

WRITE  (6,765) 

765  FORMAT   I 1H0 , 1 1 X ,65HME AN  ANNUAL   INCREMENTS  USED  To  OBTAIN  THE  RESUL 
ITS  TABULATED  ABOVE ) 
WRITE  (6,750) 
DO  770  I=1,NWGP 

WRITE    (6,600)    (WGPNMI I,J) , J=l ,3) , ADJI I l.CUMAI I  I l.BOMA I  (  I ) 
770  CONTINUE 

WRITE  (6,775) 

775  FORMAT   ( 1H0, 120HFORMULA  COMPUTATIONS  ARE   BASED  ON  VOLUME   AND  AREA 
1C0MPUTATI0NS  SUMMARIZED  ON  OTHER  PAGES.  VOLUME  GOALS  ARE  ON  PAGES 
2TYPE/1H   ,120H4,   8,   9,    10,   AND   11.   ACTUAL  AREAS  AND  VOLUMES  ARE  ON 
3PAGES  TYPE  6,   7,    13,   AND  14.  CUBIC  VOLUMES   INCLUDE  ALL  TREES  LARGE 
4R/1H   ,68HAN0  OLDER  THAN  MINIMUM  LIMITS  FOR   INCLUSION   IN  GROWING  ST 
50CK  VOLUME. ) 
WRITE  (6,8001 

800  FORMAT   I 1H0, 124HSTAN0S  SELECTED  FOR  HARVEST  AND  REGENERATION  WILL 
1INCLUDE   THOSE  CLASSED   AS  WORK   INDEX  4,   5,   OR  6.   IT   IS   EXPECTED  THA 
2T  NEARLY/1H   , 126HE0UAL  AREAS  WILL   BE  CUT  ANNUALLY   IN  STANDS  OF  EAC 
3H  SITE  CLASS.   IF  THIS   IS  NOT  DESIRABLE,   FACTORS  THAT   INDICATE  RELA 
4TIVE  V0LUME/1H   , 59HPR0DUCT I  ON   (PAGE  TYPE    12)   MAY  BE  USED  FOR  AREA 
5ADJUSTMENTS. ) 
WRITE  (6,805) 

805  FORMAT   (1H0.100HIF  WORK   IS  DONE  OURING  NEXT  PERIOD  AS  SPECIFIED  BY 
1  WORK   INDEXES,   PERIODIC  ANNUAL   INCREMENTS  WILL  BE-) 
WRITE  (6,810) 

810  FORMAT   ( IhO ,44X , n HHUNDREDS  0F/1H   ,46X,7HCU.   FT.,17X,9HM  BD.  FT.,/ 
1  ) 

DO  820  I=1,NWGP 

WRITE    (6,815)    (WGPNMI I , J > , J  =  l ,3 ) , PAICUI I  I ,PA IBD(  I  I 
815  FORMAT    (1H   , 15X , 3A4, 19X , F8 . 1 , 16X , F8. 1 ) 
820  CONTINUE 

RETURN 

END 

Subroutine  GIDE2 

SUBROUTINE  GIDE2 

C 

C  PRINT  PAGE  TYPE  2  -  POTENTIAL  WORK  AMD  YIELDS  FOR  NEXT  PERIOD. 
C 

COMMON  ADD.AGEI2) , AGEO.BAI 2 ) , BAS I  2 ) , BASD, BAST , BAUS , BFMRCH , BFVOL , 
1CFV0L,0ATE(6) , DBH( 2  I , DBHE, DBHO, DBHT, DEN ( 2 ) , DENO , DE NT, DMUS.FBA ( 2  I , 
2FCTR(2l,FDM(2),FON(2),FHT(2),FORET(19),FVLI2),HT(2),HTCUM,HTSO, 
3HTST,KAK,KN0,MI N.MNK, NBK, NCMP , MSuB, NwGP, PDBHE , PRET , PRODI  2 ) .REST, 
4SAVE, SBARB.SBARE , S BARG, SBAS , S ITE, SLAND, TBAI 2), TDM  I 2)»TEM,TIME»TMBR 
5,TMPO,TOT(2),TOTO,TOTT,TVL(2),VDM(2),VLUS,DMRI2) 

COMMON  ABFAG(5,15),ACINT(5),ADJ(5),AGETH(5,14),ALLCF(5,14) , ALOWC( 5 
1I,ALWBF(5),AMCAG(5,15),AMCUT(5,14),AREA(5,14), BDMAI ( 5), BF AGE (5, 15) 
2 ,BFINT(5 ) ,CF AGE (5,15) , CF BF( 5 , 14  I , COMBFI 5  > , COMCUI 5 ) , CUCY I  5 ) ,CUIMT( 5 
3 ) , CUMAI IS) ,DBHTH( 5, 14), DEL AY (5), DENT H(5, 14) iDLEVI 5) fFN8D(5) , 
4FNCU(5),GR0WB(5,2,14) .GROWC ( 5 , 2 , 1 4 ) , GVL BF ( 5  > , GVLCU ( 5 ) , INVL( 5,3, 14) 
5tNSI (5) ,0PBD(5) ,OPCUI 5  I , PAIBDI5) , PAICUI 5 ) , POOR! 5 ) , RE GN I  5 , 3, 14 ) , 
6RINTI5 I tSARSPI5) ,S8F( 5) , SHELTI5, 2, 14 ) , SHWDI 5, 2, 14 ) , SMC ( 5) , SMSPI5I . 
7SUBBFI  5, 14)  ,SUBCF(  5, 14) ,  SUMCF  (  5  )  ,  SYST  (  5  )  ,  THI  N  (  5  ) ,  VLL  V  (  5,  3  . 14  )  , 
8WGNUM(5) , WGPDESI 5, 20) , WGPNMI 5 , 3 ) , SPNUMI 5 1 . TPB 1 5 , 7 ) , PASP ( 5 ,7) 

COMMON  ACBAR ( 7 ) , ARBK ( 7 1 , B ARS I ( 7 , 14  I , BFTHI 7,27),CMTH(7,27I , CUT A ( 7,2 
17),CUTB(7,27),HELP(7,27),NSBK(7), OPEN  I 7,27>,PBRSII7,14I,PDCFNI7,27 
2) ,PDCFR(7,27I ,PSPLTI7,27) ,PUNC(7, 27), SARETY I  7, 35  I , SL VG I  7 , 27) , SPLT I 
37,27) ,TMTY(7) ,UNCML I7,27),PABR(7),PARTYI7,35) 

COMMON  ACFNL(5,7,15), ACRGNI 5 , 7, 15 ) , ACS I(5,7,14),ACSP(5,7),GRBD(5,7 
1 ,15) ,GRHC(5,7,15) ,PS( 5,7,14) ,STYP(35),TYPNM( 35, 5),PASI I  5,7,14) 

C 

COMMON  /BLKC/   ANN AC , ANN BD , ANNCU , F I NB ( 5  I ,FINC(5),FNAC(5) , RGACt  5) , 
1RGBD(5),RGCU(5),SAHP(5),SANCUT(5),SATH(5),SBFR(5),SBH(5),SBSVI5), 


2SCA(5,7),SCB(5,7),SCN(5),SCNBI5,7),SCNT(25),SCR(5),SCR8(5,7), 
3SCRT(25) ,SCU(5,7),SCUR15I , SFNL I  5 ) , SFR I  5 ) , SHL ( 5 , 7 ) , SI DL A ,  S I  DLB  , 
4SIDLC,S0P(5,7l,S0pTA(5) , SOPTBI 5 ) , SOP  TCI  5) ,SSL I  5,7) , STBS  I  25  I , STFO 
5(25),STHP(25),STHR(25),STLV(25).STNC(25>,ST0N(25),THAC(5),THBD(5>, 
6THCUI5) ,T0TAC<5) , T OTB D ( 5 ) , TOTCu ( 5 ) , SBM ( 5 , 7 ) 

DO   490  KA=1,NWGP 
SSUM  =  0.0 

SSUM  =  SATH(KA)   ♦  SCURIKA)   ♦  SBFRIKA)   ^  SBSVIkA)   ♦   SBHIKA)  ♦ 
lSCR(KA)   +  SFRIKA)   ♦  SCN(XA)   +  SAHP(KA) 
IFISSUM  .EO.   0.01   GO  TO  500 
WRITE  16,5) 
5  FORMAT   (1H1,//,60X,11HPAGE  TYPE  2) 
WRITE  (6,10) 

10  FORMAT   (1HO,40X,46HPOTENTIAL  WORK  LOAD  AND  YIELDS  FOR  NEXT  PERIOD) 

WRITE   (6,15)    (FORETII),  1=1,19) 
15  FORMAT   (1H  , 29X , 1 8 A4 , A2 I 

KOUNT  =  0 

IFISATHIKA)    . EQ.   0.0)   GO  TO  100 
KOUNT  =  KOUNT  *  1 
WRITE  (6,20) 

20  FORMAT   (1H0,/,41X,47HACRES  OF  COMMERCIAL  THINNING  DURING  NEXT  PERI 
10DI 

IFIKA  . EQ.  2)  GO  TO  30 
IFIKA  .EQ.  3)  GO  TO  40 
IFIKA  .EQ.  41  GO  TO  50 
IFIKA  . EQ.  5)  GO  TO  60 
WRITE  (6,25) 

25  FORMAT   I IHO , / , 4X , 5HBL0CK, 1 2X , 6HTY PE   1.13X.6HTYPE  2.13X.6HTYPE  3,13 
1 X , 6HT YPE  4,13X,6HTYPE   5, 14X , 5HT0T AL , / ) 

MK  =  1 

NK  =  5 

GO  TO  70 
30  WRITE  (6,35) 

35  FORMAT   ( IHO , / ,4X , 5HBL0CK, 1 2X, 6HTYPE  6,13X,6HTYPE  7,13X,6HTYPE  8,13 
1X.6HTYPE  9,12X,7HTYPE  1 0, 14X , 5HT0T AL , / I 

MK  =  6 

NK  =  10 

GO  TO  70 
40  WRITE  (6,45) 

45  FORMAT   I IHO,/ ,4X,5HBL0CK, 11X.7HTYPE   11, 12X, 7HTYPE   1 2, 1 2X, 7HTYPE  13 
1,12X,7HTYPE   14,12X,7HTYPE   15 , 14X , 5HT0TAL, / ) 

MK   =  11 

NK   =  15 

GO  TO  70 
50  WRITE  (6,551 

55  FORMAT   I IHO, / , 4X , 5HBL0CK, 1 1 X , 7HTYPE   16, 12X, 7HTYPE   17, 12X, 7HTYPE  18 
1,12X,7HTYPE   19,12X,7HTYPE  20 , 14X , 5HT0T AL, / ) 

MK   =  16 

NK   =  20 

GO  TO  70 
60  WRITE  (6,65) 

65  FORMAT   I IHO , / , 4X , 5HBL0CK , 1 1 X ,  7HTYPE  21 , 12X, 7HTYPE  22, 12X, 7HTYPE  23 
1.12X.7HTYPE  24,I2X,7HTYPE  25 , 14X , 5HT0T AL , / ) 

MK   =  21 

NK  =  25 
70  DO  80   1=1, NBK 

WRITE   (6,751    I , (OPEN! I , J) , J=MK,NK ) , SOPIkA, I  I 
75  FORMAT   (1H   , 4X , I  2 , 10X , Fll . 1 , 5 ( 8X ,  F 1 1 . 1 ) I 
80  CONTINUE 

WRITE   (6,85)    (STONI I ) ,I=MK,NK),SATH(KA) 
85  FORMAT   ( IHO, 3 X, 5HT0TAL , b I 8x , F 11 . 1 ) ) 
100  IF(SCURIKA)    . EQ.   0.0)   GO  TO  150 

KOUNT  =  KOUNT  +  1 

WRITE  (6,105) 

105  FORMAT   I IHO , // ,44X , 39HHUNDREDS  OF  CU.   FT.   REMOVED  BY  THINNING) 

IFIKA  .EO.   2)   GO  TO  110 

IFIKA  • EQ.   3)   GO  TO  115 

IFIKA   .EQ.   4)   GO  TO  120 

IFIKA  .EQ.   51   GO  TO  125 

WRITE  (6,25) 

MK  =  1 

NK   =  5 

GO  TO  130 
110  WRITE  (6,35) 

MK  =  6 

NK  =  10 

GO  TO  130 
115  WRITE  (6,45) 

MK   =  11 

NK   =  15 

GO  TO  130 
120  WRITE  (6,55) 

MK  =  16 

NK  =  20 

GO  TO  130 
125  WRITE  (6,651 

MK  =  21 

NK  =  25 
130  DO  135   1=1, NBK 

WRITE   (6,75)    I , (CMTHI I , J) , J=MK,NK> ,SCU( KA, I ) 
135  CONTINUE 

WRI TEI6.85 )    I STNCI I ) , I=MK,NK ) , SCUR ( K A ) 
150   IFISBFR(KA)    . EQ.   0.0)   GO  TO  190 

KOUNT  =  KOUNT  ♦  1 

WRITE  (6,155) 

155  FORMAT   I IHO , / / , 50X , 29HM  BD.   FT.   REMOVED  BY  THINNING) 

IFIKA  . EQ.   21   GO  TO  160 

IFIKA  .EQ.   31   GO  TO  165 

IFIKA  .EQ.   4)   GO  TO  170 

IFIKA   .EQ.   51   GO  TO  175 

WRITE  16,25) 

MK  =  1 

NK   =  5 

GO  TO  180 
160  WRITE  16,35) 

MK   =  6 

NK   =  10 


40 


GO  TO  180 
165  WRITE    I  6,45) 


MK 


1  1 


NK  =   1 5 

CO  TO  180 
170  WHITE  (6,55) 

MK    =  If. 

NK   =  20 

GO  TO  180 
175  WHITE  (6.65) 

MK  =  21 

NK  =  25  V 
18J  00   185    1=1 ,N6K 

WHITE    (6,75)    I  ,  (BFTHI  I  ,  J)  ,  J=MK,N<  I  ,SBM(  K«  ,  I  I 
185  CONTINUE 

WHITE    (6,85)     ( STRS I  I  I  ,  I =MK,NK I , SliFR ( KA) 
190   IFKoUVT   .IT.   3)   GO  TO  200 

SSUM    =    SbSV(KA)    ♦    SSH(KA)    ♦    SCR  1  K  A )    «•    SFR(KA)    »    SCN(KA)    ♦  SAHPIKA) 

IFISSUM  .SO.   0.0)   GO  TO  500 

WHITE  (6,5) 

KOUNT  =  0 
200  IFISBSVIKA)    .  EQ.   0.01   GO  TO  240 

KOUNT    =    KOUNT    »  1 

WHITE  (6.2C5) 

205    FORMAT    I 1H0,//,44X,39HM    OD.    FT.    TO   BE    SALVAGED    IN    NEXT  PERIOD) 

IFIKA  .EQ.   2)   GO  TO  21C 

IFIKA   .EU.   31   GO  TO  215 

IFIKA  .EQ.   41   GO  TO  220 

IFIKA   .EQ.   5)   GO  TO  225 

WHITE  16,251 

MK  s  1 

NK  =  5 

GO  TO  230 
210  WR | T£    (6, 35) 

MK  *  6 

NK   =  10 

GO  TO  230 
215  WHITE  16,45) 


MK 


11 


NK    =  15 

GO  TO  230 
220  WHITE  (6,55) 

MK   =  16 

NK  =  2C 

GO  TO  230 
225  WHITE  (6,651 

MK  =  21 

NK  =  2  5 
230  00  235   1=1, N8K 

WHITE    (6,75)    I  ,  I SLVGI  I , J  I  , J  =  MK,NK ) ,SSL I KA,  I  I 
235  CONTINUE 

WRITE    16,85)    (STLV ( I ) , I=MK,NK I ,SeS7( KA ) 
240   IFIKOUNT   . IT .   3)   GO  TO  250 

SSUM  =   SBHIKA)   ♦   SCRIKA)   ♦  SFRIKA)   ♦  SCNIKAI   ♦  SAHPIKA) 

IF  I SSUM   .EQ.   0.0 )   GO  TO  500 

WRITE  16,51 

KOUNT   =  0 
250  IFISBHIKAI    . EQ.   0.0)   GO  TO  290 

KOUNT   =   KOUNT   ♦  1 

WRITE  (6,255) 

255  FORMAT   I  1  HO , // , 4  1  X  ,  46HM  BD.   FT.    TO  BF   HARVESTED  BY  REGENERATION  CU 
ITS) 

IFIKA  . EO.   2 )   GO  TO  260 

IFIKA    . EQ.    31    GO   TO  265 

IFIKA   .  FQ .   41   GO  TO  270 

IFIKA   .EQ.   5 )   GO  TO  ?75 

WRITE  16,251 

MK  =  1 

NK  =  5 

GO  TO  280 
260  WRITE  (6,35) 

MK  =  6 

NK   =  10 

GO  TO  280 
265  WRITE   (6, 451 

MK  =  11 

NK   =  15 

GO  TO  280 
270  WRITE  (6,55) 

MK    =  16 

NK    =  20 

GO  TO  280 
275  WRITE  16,65) 


MK 


21 


NK  =  25 
280  DO  285   1=1, NBK 

WHITE    (6,751     1  ,  ICUTA I  I , J) , J  =  MK, NK ) ,SCA( K A,  I  ) 
285  CONTINUE 

WRITE    (6,851     (STHR( I ) »I=MK,NK),SBH(KA) 
290  IFIKOUNT   .LT.   3)   GO  TO  300 

SSUM  =   SCRIKA)   +   SFR(KA)    »  SCNIKA)   ♦  SAHPIKA) 

IFISSUM  .EQ.   G.O)   GO  TO  500 

WRITE  (6,5) 

KOUNT  =  0 
300  IF(SCRIKA)   .EQ.   O.D)    GO  TO  340 

KOUNT   =   KOUNT   *  1 

WHITE  16,3:5) 

305  FORMAT   (1H0,//,43X,42HHUN0REDS  OF   Cu.   FT.   FROM  REGENERATION  CUTS) 

IFIKA   . FQ.   2 |   GO  TO  310 

IFIKA   .EQ.    31    GO  TO  315 

IFIKA   .EQ.   4)   GO  TO  320 

IFIKA    .EQ.    51    GO   TO  325 

WRITE  (6,251 

MK   =  1 

NK   =  5 

GO  TO  330 
310  WR  I  TE  (6,35) 


GO  TO  330 
315  WH I TE    16,45  1 

MK   =  11 

NK  =  15 

GO  TO  330 
320  WRI  TE    16,55  1 

MK   =  16 

NK   =  20 

GO  TJ  33G 
325  WRIT?  (6,65) 

MK  =  21 

NK  =  25 
330  DO  335   1=1, NBK 

WHITE    16.75)    1  ,  I POCFC  I  I , J  I , J  =  MK, NK ) ,SCRBI K A,  I ) 
335  CONTINUE 

WRITE    16,85)    I  SC- T  I  I  I  ,  I  =MK,NK  I  ,  SCR  (  KA) 
340  IFIKOUNT   .LT.    31   GO  TO  350 

SSUM    =    SFO(KA)    »    SCNIKAI    t  SAHP(<AI 

IFISSUM  .to.   0.0)   GO  TO  500 

WRITE  16,5) 

KOUNT   =  0 
350   IF(SFHIKA)    . EQ.   0.01   GO  TO  390 

KOUNT   =   KOUNT   ♦  1 

WRITE  (6,355) 

355  FORMAT  I 1HC ,//,37X,54HM  BO.  FT.  TO  BE  HARVESTED  BY  FINAL  REMOVAL 
IF  OVERWOOO) 
IFIKA  .EC.  21  GO  TO  360 
IFIKA  . EQ.  3)  GO  TO  365 
IFIKA  .FC.  41  GO  TO  370 
I F I KA  . EQ.  5 )  GO  TO  375 
WHITE  (6,251 


1 


GO  TO  380 
360   WRITE  16,35) 

MK  =  6 

NK   =  10 

GO  TO  380 
365  WRITE  (6,45) 

MK   =  11 


15 


50  TO  380 
370   WH I TE  16,551 

MK  =  16 

NK  =  20 

GO  TO  380 
375  WRITE  (6,65) 


MK 


21 


NK  =  25 
380  00  385   1=1 .NBK 

WHITE    (6,75)    I , I CUTBI I , J ) , J=MK , N< I , SCBI K A, I ) 
385  CONTINUE 

WRITE    16,85)    (STFOI I ) ,I=MK,NK) , SFRIKA) 
390  IFIKOUNT   .LT.    3)   GO  TO  400 

SSUM   =    SCNIKAI    ♦  SAHPIKA) 

IFISSUM   . EQ.   0.01   GO  TO  500 

WRITE  (6,5) 

KOUNT   =  u 
40^   IFISCNIKAI    .  EQ.   CO)   GO  TO  440 

KOUNT  =  KOUNT  »  1 

WRITE  16,405) 

405  FORMAT  I  1 H 0 , / / , 46X , 3 5 HH J N OR E OS  OF  CJ.  FT.  FROM  FINAL  CUTS ) 
1 F I KA  .EC.  2  1  GO  TO  410 
IFIKA  .EQ.  3)  GO  TO  415 
IFIKA  . FO.  4 1  GO  TO  42C 
IFIKA  .EQ.  5  1  GO  TO  425 
WRITE  16,25) 


MK 


1 


NK  =  5 
GO  TO  430 

410  WRITE  16,35) 
MK  =  6 
NK  =  10 
GO  TO  430 

415  WRITE  (6,45) 
MK  =  11 
NK  =  15 
50  TO  430 

420  WRITE  (6,55) 
MK   =  16 


NK 


20 


MK 
NK 


10 


50  TU  430 
425  WRITE  16,65) 

MK  =  21 

NK  =  25 
430  00  435   1=1 ,N8K 

WRITE   (6,751    I , ( PDCFNI I , J  I , J  =  MK , NK ) ,  SCNB  (  KA  ,  1  I 
435  CONTINUE 

WRITE    (6,85)     I SCNT I  I  )  , I =MK,NK )  , SCNI KA) 
440   IFIKOUNT    .LT.    3)    GO  TO  445 

SSUM   =  SAHPIKA) 

IFISSU"   .CO.   0.01   GO  TO  500 

WRITE  (6,5) 

KOUNT   =  0 
445   IFISAHP(KA)    .EQ.   CO)   GO  To  490 

WRITE  (6,4501 

450  FORMAT   (1HC.//,39X,50hACR£S   OF  NONCOMMERCIAL  THINNING  DURING  NEXT 
1PERIO0) 

IFIKA   .EQ.    21    GO   TO  460 

IFIKA   .FQ.    3)    GO  TO  465 

IFIKA   .FQ.   4)    GO   TO  4 7C 

IFIKA  . FQ.   51    GO  TO  475 

WRITE  16,25) 

MK    =  1 

NK  =  5 

GO  TO  480 
460   WRITE  16,35) 

MK   s  6 

NK   =  10 


4  1 


GO  TO  480 
465   WRITE  (6.451 

HK    =    1 1 

UK    =  15 

GO  TO  480 
470  WRITE  16,551 

MK   =  16 

NK   =  20 

GO  TO  480 
475  WRITE  (6,65) 

HK   =  21 

NK  =  25 
480  00  485   1=1 , NBK 

WRITE  (6,75)  I ,  ( HELP  I  I , J  I  , J  =  MK, NK ) ,SHL (K A,  I  I 
485  CONTINUE 

WRITE    (6,851     (STHP(  I  )  ,  I  =  M  K  ,  NK  )  , S  AHP ( K  A ) 
490  CONTINUE 
500  RETURN 

END 


Subroutine  BHPP 


SUBROUTINE  BHPP 


LOCATION  FOR  ALL  SPECIES 
HILLS  PONOEROSA  PINE. 


SPECIFIC   STATEMFMTS   APPLICABLE    TO  BLACK 


GT .  6.7 
.26612 


)   GO  TO  26 
GO  TO  22 

VDM(I)   -  1.12689 


13.41984  /   VDM| I ) 


.GT.  10.4)  GO  TO  23 
3.46993   -   0.12017  * 

0.99666  -  0.66932  / 
.LE.  7.99)  GO  TO  26 
.GT .  11.9)  cn  rn  25 


10752  +  0  .10712  *  VDMII)    +  0.00185   *  BA(I) 


.29735  *  AL0G10IHTI 1 ) ) 
-  1.56975 


SECTION  3  -  GROWTH  FOR  NEXT  PERIOD. 

30  DO  35  1=1,2 
TMDY  =   AGE (II    ♦  TIME 
I F ( TMDY   .LT.    TEM)   GO  TO  35 
IF    I HTI I ) . LE . 0. )    GO   TO  31 
FOM ( I )    =   0.88511    «   DBH( 11*1 

1H1I)    «  SITE   *  62.37174  /  SBAS 

31  IFIDBH(I)    .GE.   10. 0)   GO  TO  32 

FDNIl)   =   0.00247  +  0.  00124  *  DBH(I)    *  0.00028   *  oe H [ I ) 
10.00000521   «   SBAS   «  SBAS   -  0.0000905   »  DBH(I)   *  SBAS 
IF1FDNIII    .LT.    0.0)    F  ON ( I )    =  0.0 
FONIII    =   DEN ( I )    «    (1.0   -  FDN(II) 
MNK   =   FDNI II    *  0.5 
FONIII    =  MNK 
GO  TO  33 

32  FDNI I )   =  OEN(  I  ) 

33  FBA(I)   =   0.0054542   «  FDM ( I  I    *  F  DM ( I ) 
FHT(I)   =   15.43021   t   1.137   »  HT(I)  - 

1SITE  -  0.02447  »  SITE   *   SBAS   /  1C0.0 
D2H  =  FOM ( I )    «  F  DM { I  I    *  FHT(I) 
IFID2H   .GT.   6000.0)   GO  TO  34 

FVL(I)    =    (0.00225   »  02H  -  0.00074   »   FBA(I)    (■  0.0371  11 


«  FDNI I ) 
.08637  « 


3)4.12172  I 


COMMON  ADD,AGE(2),AGE0,BA(2I,BAS(2),BAS0,BAST,BAUS,BFMRCh,BFvOL, 
1CFV0L,DATE(6),DBH(2),DBHE,DBH0,DBhT,0EN(2),DEND,DENT,DMUS,FBA(2), 
2FCTR(2),FOM(2),FDN(2),FHT(2), FORETI 19  I ,FVL(2),HT(2),HTCUM,HTS0, 
3HTST,KAK,KN0,MIN,MNK,NBK,NCMP,NSUP,NWGP, PDBHE, PRFT, PRODI  2 ) .REST, 
4SAVE,SBARB,SBARE, SB ARG.SBAS, SITE, SLAN0,T8AI2),T0M<2), TEM, TIME, TM8R 
5,TMPO,TOTI2),TOTO,TOTT,TVL(2l,VOM(2),VLUS,DMR(21 

COMMON  ABFAG(5,15),ACINT(5I,ADJ(5),AGETH(5,14),ALLCF(5,14),AL0HC(5 

1)  ,ALWBF(5).AMCAG(5,15),ANCUT(5,14),APEA(5,14),BDMAI(5>,BFAGE(5,15) 
2,BFINT(5),CFAGE(5,15),CF8F|5,14I,COMBF(5>,COMCU(5),CUCY15),CUINT(5 
3),CJMAI(5),DBHTH(5,l4),DELAY(5),0ENTH(5,14),DLEv(5>.FNBD(5), 
4FNCUI5),GR0WB(5,2,141  .GROWC  (5,2.U),GVLBF(5),GvLCU(5l,INVL(5,3,14) 
5,NSI(5),0PB0(5),0PCU(5),PAIBD(5),PAICU(5 ) ,P03Ri 5), RE GN (5, 3,14), 
6RINT(5),SARsP(5),SBF(5l,SHELT(5,2t14),SHWD(5,2,14),SMc(5),SMSPI5l, 
7SUBBF(5,14I, SUBCF( 5, 14) , SUMCF ( 5),SYST(5).THIN(5),VLLV(5,3.l4), 
8WGNUM ( 5 ) , WGPDES (5,20) ,WGPNM(5,3),SPNUM(5),TPB(5,7),PASPI5,7I 

COMMON  ACBAR(7I,ARBK(7),BAPSI(7,14),BFTH(7,27I,CMTH(7,27),CUTA(7,2 
17),CUTa(7>27),HELP(7,27),NSBK[7),0PEN(7,27),PBRSt(7,14),PDCFN(7,27 

2)  ,PDCFR(7,27I,PSPLT(7,27),PUNC(7,27>,SAR£TY(7,35),SLVG(7.27>,SPLT( 
37,27)  ,  TM  T  Y ( 7  I  ,UNCML(7,27),PABR(7),PARTY(7,35) 

COMMON  ACFNLI5,7,15),ACRGN(5,7,15),ACsM5,7,14),ACSP(5,7),GRBD(5,7 
1,15),GRMC(5,7,15),PS(5,7,14),STYP(35I,TYPNM(35,5I,PASI(5,7,14I 

COMMON   /BLKO/   I  J  » I K , K I , VOL »  T VOL 

GO  TO   (10,20,30,40,50,60,70,80,90,100,110,120),  1J 
SECTION   1   -   FIND   TOTAL   CUBIC   FOOT  VOLUME. 

10  D2H    =    DBH(IK)    *    OBH(IK)    *    HT  (  IK) 
IFID2H  .GT.   6000.0)   GO  To  11 

TOT(IK)   =   (0.03225   *  D2H  -  0.00074  *  BAS(IK)   +  0.037111   «   DEN ( I 
GO  TO  12 

11  TOTIIKI    =    10.00247   *  02H  *  0.00130  »   BAS(IK)   -   1.40286)   *  DEN ( I 

12  RETURN 

SECTION  2   -  VOLUME   CONVERSION  FACTORS . 

MERCh.   CU.   FT.   -  TREES  6.0   INCHES  O.8.H.   AND  LARGER   TO  4-INCH  TOP. 
BD.   FT.   -   TREES   10.0   INCHES  D.B.H.   AND  LARGER  TO  R-INCH  TOP . 

20  DO  21  J=l,2 
FCTRIJ)    =  0.0 

21  PROD(J)   =  0.0 
DO  26   1=1, KNO 
IFIVDMI I ) 
IF( VDM( I  ) 
FCTRIII  = 
GO  TO  24 

22  IF( VDMI I ) 
FCTRIII  = 
GO  TO  24 

23  FCTRII I  = 

24  I F ( VDM ( I ) 
I F ( VOMI I  1 
PRODI  I  I  = 
GO  TO  26 

25  PROD(I)  = 
1   /   VDMI I  I 

26  CONTINUE 
RETURN 


GO  TO  35 

34  FVLIII   =   (0.00247  *  D2H  ♦   0.00130  *  FBA(l)   -   1.402861   *  FDN(I) 

35  CONTINUE 
RE  TURN 

C 

C  SECTION  4  -  FUTURE   UNTHINNED  UNDERSTORY   IF  OVERSTORY  REDUCED  NOW. 

C 

40  DMUS  =   0.88511   *  DBHI2)   ♦   1.29735  *  A L 0 G 1 0 ( HT ( 2 ) )    ♦  0.00119  *  DBH  ( 
121    *   SITE   ♦  62.37174   /  BASI21   -  1.56975 

IFIDBHI2)    .GE.    10.0)   GO  TO  41 

DNUS  =  0.00247   <■  0.00  124  *  DBH  1 2  )   +  0.00028  «  DBHI2I   *  DBHI2I    ♦  0. 
100330521   *  BASI2)   *  RASI2I   -  0.0000905  *  0BH12)   *  BASI2I 
IFIDNUS   .LT.   0.01    DNUS  =  0.0 
DNUS   =   DENI2I    *    (1.0   -  DNUS) 
MNK   =   DNUS   *  0.5 
DNUS   =  MNK 
GO  TO  42 

41  DNUS  =  DENI2) 

42  BAUS   =  0.0054542   «  DMUS  *  DMUS  »  DNUS 

HTUS  =   15.43021   ♦   1.107  «  HT(2)   -   0.08637  •  AGE ( 2 )   -   304.12172  /  S 
1ITE   -  0.02447  «   SITE   *  BASI2I   /  100.0 
D2H   =  DMUS  *  DMUS   *  HTUS 
IFI02H   .GT.   6000.0)   GO  TO  43 

VLUS   =    (0.00225   *  02H  -  3.30074  *   BAUS   ♦  0.03711)   *  DNUS 
GO  TO  44 

43  VLUS  =   10.00247  «  02H  <-  0.00130  •   BAUS  -   1.40286)   '  DNUS 

44  RETURN 

C 

C   SECTION  5  -  NEW  D.B.H.   AFTER  THINNING. 

C 

50  I F I  PRE  T   .LT.   50.0)   GO  TO  51 

DBHE  =  0.73365  *  1.02008   *  DBHO  -  0.01107  t   (PRET  -   50.01   -  0.0001 
14  «   (PRET   -  50.0)   *   (PRET  -  50.01 
GO   TO  52 

51  PDBHE   =   0.49401    ♦   0.71890    *   AL0G1 0 ( DBHO )    -   0.2253P   «  ALOGIO(PRET) 
1    ♦   3.12616   *   AL0G1 0 ( DBHO )    *  ALOG10IPRET) 

DBHE   =   10.0  *«  PDBHE 

52  RETURN 

C 

C   SECTION  6  -  CUBIC   FEET   AS   BYPRODUCT  OF   SAWLOG  CUT. 

C 

60  ADD  =  VOL  *   10.6180  ♦   26.7798  /  DBH(KI)   -  0-04034  «  VOL) 
ADD   =   TVOL   -  ADD 

I F I  ADD   .LT.    COMCU(KAKI)    ADD  =  0.0 
RETURN 


SECTION   7   -   VOLUME    IF   THINNED   NOW   AND   IF   THINNED    IN   TIME  YEARS. 

C 

70  HT(Kl)   =  HTIKII    *   7.64833   -   3.82286  »   ALOGlOt  PRET ) 
TEM   =  TBAIIKI    /    (0.0054542   *  TDM(IK)    «  TPM(IKI) 
D2H    =    TDM ( I K )    *    T  DM (  IK)*  HTIKI) 

IF102H   .GT.   6000.0)   GO  TO  71 

TVLIIK)    =   10.00225  *   D2H  -  0.00074  «   T  B  A I  IK)   *  0.0371  1  )   «  TEM 

GO   TO  72 

71  TVLIIK)   =    (0.03247   *  02 H  +  0.00130  »  TBAIIK)   -   1.402861   *  TEM 

72  RETURN 

C 

C   SECTION   8  -   STATUS  AT   END  OF   PERIOD   IF  THINNED  AT  START   OF  PERIOD. 

C 

80  J    =    TIME    /  RINTIKAKI 
DO  83   1=1, J 

IFITBAIll    .LE.   0.3)   GO  TO  83 

HT(1)    =   HT(1I    +   7.64833   -   3.82286   »  ALOGIO(SAVE) 

FOM(l)    =   1.0097*TDM(1  )*-0.0396*SITE-1.5766*ALOG10(TBA(  1)  1+3.3021 
FHT(l)   =   15.43021   t   1.137   «  HTIl)    -  0  .08637  •  AGE  I K I  )   -  304.12172 
1/     SITE   -  0.02447  s  SITE  »  TBAIll   /  100.0 
MNK   =   (TBA(l)   /    (0.0054542  *  TDMIll   *   TDMI1II)    »  0.5 
I F I  TDMI 1  I    .LT.    10.0)    GO   TO  81 
FONIII    =  MNK 
GO  TO  82 

81  FDNIll    =   0.00247   *  0.00124  *  TDMI 1 )   t   3.00028  *   TDM ( 1 )   «   TDMI 1 )  * 
10.00000521    «   TBAIll    4   TBAIll    -   0.0000905    *   TDMIl)    *  TBAIl) 

IF(FDNIl)    .LT.   0.3)   FDNIll   =  0.0 
TEM   =  MNK 

NKM  =  TEM  *   (1.0  -  FDNIll)   +  0.5 
FDNIl)    =  NKM 

82  FBA(l)   =  FDNIl)    »  3.0054542   *  FDM(l)   *  FDM I  1 ) 
TDM  I  1  I    =   FOM I  1 ) 

TBA (II    =  FBA( 1 1 
HT (  1  I    =    FHT ( 1  I 

AGE ( K I  J    =    AGEIKI)    +  RINTIKAKI 

83  CONTINUE 

D2H   =   F  DM  I  1 )    »   FOM(l)    «  FHT(l) 
IFID2H   .GT.   6000.0)   GO  TO  84 
FVLIII    =   (0.00225   *  D2H  -  0.00074 
GO   TO  85 

84  FVLIl)    =    (0.00247   *  D2 H  *  0.00133 

85  RETURN 


FBAl 11  »  0.03711)  *  FDNIl) 
FBAI  1  )    -    1.40286)    »   FDNI 1  I 


C    SECTION   9  -   HEIGHT   AND   VOLUME   BEFORE  THINNING. 

C 

90  1FIAGE0   .GT.   55.0)   GO   TO  91 

HTSO  =  0.01441   *  AGEO  <■  SITE  -  3.12162  »  AGE3  -  1.50953 

GO  TO  92 

91  HTSO  =  0.59947  -  61.5019  /   AGEO  ♦  0.80522  »  AL0G10ISITE)    ♦  20.5252 
18  *  AL0G10ISITE)   /  AGEO 

HTSO  =   10.0  **  HTSO 

92  HTSO   =   HTSO  ♦   HT  CU  M 

02H  =  DBHO  *  DBHO  «  HTSO 
IFID2H   .GT.   6000.01   GO  TO  93 

TOTO  =    10.00225   «  02H  -  3.30074   «   BASO  »  0.037111   »  DENO 
GO  TO  94 

93  TOTO  =   (0.00247  *  D2H  »  0.00130  »   BASO  -   1.40286)   «  DENO 

94  RETURN 

C 

C   SECTION   10  -  HEIGHT   AND  TOTAL   CUBIC  FEET  PER  ACRE   AFTER  THINNING. 

C 

100  ADDHT  =   7.64833  -  3.R22B6   *  AL0G10 I PRET ) 
HTCUM  =   HTCUM   ♦  ADDHT 


4  2 


HTST    =    HTSO   »  ADDHT 

D2H  =  DBHT  •  DBHT   »  HTST 

IFI02H  .GT.   6000.0)   GO  TO  101 

TOTT  =   (0.00225   •  02H  -  0. 00074  «   BAST   ♦   0.0371  1  )   •  DENT 
GO  TO  102 

101  TOTT  =   10.00247   •   02H  ♦  0.00130  •   BAST  -   1.402B6I    •  DENT 

102  RETURN 

C 

C   SECTION  11   -  O.B.H.   AT   END  OF  PROJECTION  PERIOD. 
C 

110  DBHO  =   1.0097»DBHT  »  O.DD96«SITE  -  1  .  5 766» AL 0G1 0 1  B 0 S T I    ♦   3.  3021 
RETURN 

C 

C  SECTION   12  -  MORTALITY  AS   A  PERCENTAGE   OF   INITIAL  DENSITY. 
C 

120  DENO  =  0.00247   ♦  0.00124  »  DBHT   »  0.0002B  «  DBHT  »   DHHT   »   0. 000005 
121   •  BAST   •  BAST   -  0.0000905  •  DBHT  •  BAST 
RETURN 
FNO 


Subroutine  LDGP 


SUBROUTINE  LDGP 


LOCATION  FOR  ALL  SPECIES 
PINE   IN  COLO.   AND  WYO. 


SPECIFIC   STATEMENTS  APPLICABLE   TO  LODGEPOLE 


COMMON  A0O,AGE(2),AGEOiBAI2).BASI2l,BAS0,BAST,BAUS,BFMRCH,BFvOL, 
1CFV0LiDATE(M.DBHI2)  ,  DBHE  ,  DBHOi  DBHT ,  DEN  I  21,  DENO, DENT, 0MuS,FBAI2), 
2FCTR(2),FDM(2),FDNI2),FHT(2),FORET(19),FVL(2),HT(2>,HTCUM,HTSD> 
3HTST,KAK,KN0,MI N.MNK, NBK, NCMP.NS JB, NWGP, P OB  HE . P R E T , P R 00 1 2 ) , RE  ST, 
4SAvE,SBARB,SBARE»S8ARG»S8AS»SITE»SLAND»TBA(2),TDM(2)»TEM,TIME»TMRR 
5,Tmpo,T0TI2),TOTO,TOTT,Ti/LI2),\/01(2),VLUS,0MRI2) 

COMMON  ABFAGI5,15I,ACINT(5)  ,  AOJI  5),AGETH(5,14),ALLCFI5,14),AL0WC(5 

1)  ,ALWSF(5),AMCAG(5,15),ANCJT(5,14I,AREA(5,14),8DMAI(5I,BFAGE(5,15> 
2,BFINT|5l,CFAGE(5,15),CFBFI5,14),COMBFI5l,C0MCU(5),CUCY(5),CUINTI5 
3  )  ,CUMAI  (5)  ,  DBHTH I  5  , 14), DELAY  (5), DENTHI5, 141,  DL  El/151, FNB0I5I, 
4FNCUI 5) .GR0WBI5 ,2 , 14  >,GR0WC(5,2,14),GVLBFI5),GVLCU(5),INVL(5,3,14) 
5,NSII5),OPnDI5i,0PCul5),PAIBDI5),PAICUI5l,P0DRl5l,REGN(5,3,14), 
6RINT(5),SARSPI5),SBF(5),SHELT(5,2,14),SHW0(5,2,14),SMC(5),SMSPI5), 
7SUBBF  15, 14  I  ,SUBCF(5,14),SUMCF(5).SYST(5).THIN<5),VLLV|5,3,14), 
8WGNUM(5),WGPDESI5>20).wGPNM(5,3l,SPNUM(5l,TPB|5,7),PASP(5,7> 

COMMON  ACBARI7),ARBK|7),BARSI(7,14),BFTH|7,27),CMTH(7,27I,CUTAI7,2 
17),CUTB(7,27),HELPI7>27),nSBKI7),0PENI7,27I,PBRSI(7,14),PDCFN(7,27 

2)  ,PDCFRI7,27),pSPLT(7,27|1PUNCI7,27),SARETY(7,35),SLVG(7,27l,SPLTI 
37,27),TMTYI7) ,UNCML (7,27) ,PABRI7),PARTY(7,35) 

COMMON  ACFNLI5,7,15I,ACRGNI5,7,  15),ACSI|5,7,14),ACSPI5,7I,GRB0[5,7 
l,15),GRMC(5t7,15),PS(5,7,14),STYPI35),TYPNM(35,5),PAS!(5,7,14) 

COMMON  /BLKO/   IJ 1 1 K t KI t VOLi TVOL 

GO  TO   (10,20,30,40,50,60,70,80,90,100,110,120),  1J 


SECTION   1   -   TOTAL   CUBIC   FOOT  VOLUME. 

10  D2H    =    OBHIIKI    *    OBH(IK)    «  HTIIKI 
IFI02H   .GT.   7000.0)   GO  TO  11 

TOT(IK)  =  (-0.00577  -  0.00059  «  BAS(IK)  »  0.00276  *  D2H) 
GO  TO  12 

11  TOT(IK)   =    (0.0024B   *  02H  *   1.96336)   *  OEN(IK) 

12  RETURN 


SECTION  2 
MERCH.  CU. 


-  VOLUME  CONVERSION  FACTORS • 
FT.   -  TREES  6.0  INCHES  D.B.H. 


AND   LARGER    TO   4-INCH  TOP. 


TREES  6.5   INCHES  D.B.H.   AND  LARGER   TO  6-INCH  TOP. 


=  1  ,2 

=  0.0 


20  00  21 
FCT^I J 

21  PRDDIJI  =  0.0 
DO  26  1=1, KNO 
IF(VDMU)  .LE 
I F ( VDM ( I  ) 
FCTR I  I )  = 
GO  TO  24 

22  IFIVOM(I) 
FCTRIII  = 
GO  TO  24 


.GT 

0. 31963 


99)   GO  TO  26 
71   GO  TO  22 
VDMI I  I   -  1 


.GT.  9.8)  GO  TO  23 
3.68255  -  0.14007  * 


13.54644  /   VDMI I ) 


23  FCTRII )  = 
?4    IF  I VOMI I  I 
I F (VOMI  I  I 
PRODII)  = 
GO  TO  26 

25  PRODII)  = 

26  CONTINUE 
RETURN 


0.99503  -  0.5B018  / 
.LE.  7.991  GO  TO  26 
.GT.  10.0)  GO  TO  25 
0. 00045  »  BAI I )    t  0. 


18091   *  VDMI I ) 


0.  16583   ♦  3  .741  74  »  AL 3G 1 0 1  V DM (  I  I  I 


SECTION  3  -  GROWTH  FOR   NEXT  PERIOD. 

30  00  35  1=1,2 
TMOY  =  AGE (II   ♦  TIME 
IFITMDY  .IT.   TEM)   GO  TO  35 
IFIHTI  I  )    .LE.   0.01   GO  TO  31 
F  DM ( I )   =  0.2631   ♦  0.95287 

16662  /  SBAS 
IF  I DMR II)    .LE .    3.9  I    GO  TO 
TEM   =    I F  DM  I  I  I    -   DBHI III  » 
FOMI I  1    =  DBH I  I  1   ♦  TEM 

31  DIE   =  0.0 
IFIDENII)    .GT.    1000.0)  GO 
DIE   =   (3.81   *  DMR ( I 
IFIDIE   .LT.   0.0)    DIE   =  0.0 
GO  TO  33 

32  DIE   =   18.  64  +  3.28  »  DMR I  I ) )   »  0.01 

33  FDNI I )   =  O.G 

I F | DBH I  I )    .GE .    10.0  1   GO  TO  34 
FONII)   =  0.05235   -  0.01346  *  DBHI  I ) 
10.0000066   •   SBAS  *   SPAS  -  0.0001931 
IFIFON(I)    .LT.   0.0)   FONII)   =  0.0 


DBHI I )   ♦  0.0016  *  DBHI I ) 


31 


0  TO  32 
.631   «  0.01 


192   *  OMR  I  I  ) 


0.00226 
DBHI  I  )  « 


!  DBHI  I )  *  DBHI  1  I 
SBAS 


333.37172  / 


34  IFIDIE    .LT.    FDNI!))    DIE   =  FONII) 
FDNI I )    =  DEN  I  II   «   11.0  -  DIE) 
MNK  =  FDNI I  I    ♦  0.5 
FDNI I)   =  MNK 

FBA(I)    =    0.0054542    *    FOMI  I  )    »    FOMI  I )    •    F  ONI  I  I 
FHT1I)    =    14.57349   ♦   1.101    •   HT(I)    -   0.09654   *   AGE  I  I  ) 
1SITE   -  0.04321   •   SITE   »  SBAS  /  100.0 
PCT   =   1  .  0  -  0.0028   •  OMRII)    »  OMR! I )   •  DMRI I  I 
CHNG   =    I FHT II)    -  HT I  I  ) I    »  PCT 
FHT II)    =   HTI I )    ♦  CHNG 
D2H   =   F  DM  I  I )    *   FOMII)    »  FHTIII 
IFI02H   .GT.   7000.01   GO  TO  35 

FVL(I)    =    10.00276   *  D2H  -  0.00059  »  FBAII)   -  0.005771   •  FDN(I) 

GO   TO  36 

35  FVLII)   =   IG. 00248  •  D2H  ♦   1.963361    «  FDNIII 

36  CONTINUE 
RETURN 

SECTION  4  -  FUTURE   UNTHINNED  UNDERSTORY   IF  OVERSTORY  REDUCED  NOW. 

40  DMUS   =   0.2631    »   0.95287   *   OBHI  2  I    »   0.0016  »   DBH  I  2  )    *    SITE    «■  16.466 
162   /  BASI2) 

IFIDMRI2I    .LE.   3.9)   GO  TO  4  1 

TEM  =   (DMUS  -  DBH(21)   *   (1.0  -   (0.192   »   DMRI2I   -  0.754)1 
DMUS  =  DBH I  2 )    ♦  TEM 

41  DIE   =  0.0 

IFIDENI2I    .GT .    1000.0)   GO  TO  42 
DIE  =   13.81   «  DMR 1 2 )   -  6.631    *  0.01 
IFIDIE   .LT.   0.0)   DIE   =  0.0 
GO  TO  43 

42  DIE   =   18.64  *   3.2B  *   DMR I  2 )  )   »  0.01 

43  DNUS  =  0.0 

IFIDBHI2)    .GE.    10.0)   GO  TO  44 

DNUS   =  0.  05285   -  0.01  346  *  0BHI2)   ♦  0.00226  «  DBHI 2 )   «   DBH 1 2 )   ♦  0. 
10000066  *  BASI2)   *  BASI2)    -  0.0001931   *  0BHI2)   *  BASI2) 
IFIONUS   .LT.   0.01   DNUS  =  0.0 

44  IFIDIE  .LT.  DNUS )  DIE  =  DNUS 
DNUS  =  0ENI2)  *  11.0  -  DNUS ) 
MNK  =  ONUS  ♦  0.5 

DNUS  =  MNK 

BAUS  =  0.0054542  *   DMUS   «  DMUS  *  DNUS 

HTUS  =   14.57349   ♦   1.101   *   HTI2)   -   0.09654  •  AGEI2I   -   333.37172   /  S 
1ITE   -  0.04321   »   SITE   «  BASI2I   /  100.0 
PCT   =   1  .0  -  0.0028   »  OMR  1 2 )    *   DMRI2I    «   DMR I  2 ) 
CHNG   =    IHTUS   -   HT [2)1    «  PCT 
HTUS   =   HTI 2)    ♦  CHNG 
D2H  =  DMUS  *  OMUS  *  HTUS 
IFI02H   .GT.   70OO.0)   GO  TD  45 

VLUS   =    10.00276   «  02 H  -   0.00059   t   BAUS  -   0.00577)   *  DNUS 
GO  TO  46 

45  VLUS  =   (0.00248   *,D2H  ♦   1.96336)    »  ONUS 

46  RETURN 


SECTION   5   -   NEW   O.B.H.    AFTER  THINNING. 

50  I F I PRET    . LT.    50.0)    GO   TO  51 

DBH E   =  0.44222  ♦  1  .03170   «  DBHO  -   0.00816  •   IPRET  -   50.0)   -  O.OOOC 
19  «   (PRET  -  50.0)   *   IPRET   -  50.01 
GO  TO  52 

51  POB HE   =  0.37321   -  0.  1  7274   *  ALOG10 1 PRET )    ♦  0.79921   *  AL0G1OIDBHOI 
It   0.09315   *   ALOGIO(PRET)    *  ALOG10IOBHOI 

DBHE   =   10.0  **  PDBHE 

52  RETURN 


C   SECTION  6  -  CUBIC   FEET   AS   BYPRODUCT  OF  SAWLJG  CUT. 
C 

60  ADD  =   VOL   «    12.09342   ♦  2.98062  /  DBH I K I )   -  0.00542  *  VOL) 
ADD  =   TVOL  -  ADD 

IFIADO    .LT.    COMCUIKAKII    AOO    =  0.0 
RETURN 

C 

C   SECTION   7   -   VOLUME    IF   THINNED   NOW   AND    IF   THINNED    IN   TIME  YEARS. 

C 

70  HTIKI)    =   HTIKII    ♦   6.79950   -   3.41979   *  AL0G1OIPRET) 
TEM   =   TBAIIKI    /    10.0054542   *  TDM  I  IK)    *  TDMIIKII 
DZH   =   TDM  I  IK)    *   TDM  I  IK)    »  HTIKI) 

IFID2H   .GT.    7000.0)    GO  TO  71 

TVLIIKI    =    (0.00276   •   D2H  -   0.00059   «   TBAIIK)    -   0.00577)    »  TEM 

GO  TO  72 

71  TVL(IK)   =   (0.0024B   «   D2H  ♦    1.96336)    «  TEM 

72  RETURN 

C 

C   SECTION   8   -   STATUS   AT   END   OF   PERIOD   IF   THINNED  AT   START   OF  PERIOD. 

C 

80  J    =    TIME    /  RINT(KAK) 
DO  85   1  =  1  ,  J 

I F I TBAl II    .LE .   0.0 )   GO  TO  35 

HTI1)   =   HTI1)    *   6.79950  -  3.41979   *  ALOG10ISAVE) 

FDM(l)   =   1  .0222  *  TDM(l)    ♦  0.0151    *  SITE  -   1.2417  *  AL0G1 0 ( TB A ( 1 1 ) 
1   *  2.1450 
IF(  DMR  (  1  )    .LE  .    3.9  1    GO   TO  «1 

TEM  =    IFDMIll    -  TDMI1II    t   II. 0   -   10.192   •  OMR(l)   -  0.7541) 
FDMI1)    =   TDM ( 1 )    ♦  TEM 

81  FHT(l)    =   14.57349   ♦   1.101   »   HT I  1  I   -  0.09654  »  AGE  I K I )   -  333.  37172 
1/  SITE   -  0.04321   *   SITE  •  TBA(l)   /   100. 0 

PCT   =    1.  0   -   0-0028    *   DMRIl)    «   DMRIll    ■>  DMRI1I 
CHNG  =   IFHT(l)   -  HTI1II   «  PCT 
FHT ( 1 )    =   HT I  1 )    ♦  CHNG 
DIE   =  0.0 

ITEM  =   TBAI1)    /    10.0054542   «   TDMI1I   »   TDMllll   *  D.5 
TEM  =  ITEM 

I F I TEM  .GT.   1000.0)   Go  TO  82 

DIE  =   (3.81  *  DMR ( 1 )   -  6.63)    *  0.01 

IF (DIE   .LT.    0.01    DIE   =  0.0 

GO  TO  83 

82  DIE   =   (8.64  ♦  3.28  *   DMRI11I    *  0.01 
B3  FDN ( 1 )    =  0.0 

ITRE   =   ITBAI1)   /    (0.0054542   »  TOY(l)    «   TnM(l)l)   ♦  0.5 
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TRE   =  ITRE 

IFITDMIl)    . GE ■    10.01    GO  TO  84 

FDNd)    =   0.05285   -  0.  01345  *   TDM  (  1  )   *  0.00226  «   TDM(l)   •  TOM(l) 
10.  0000066   *  TBA(l)    «  TBAIll   -  0.0001931   »  T DM ( 1 )   *  T8AI1) 
IFIFDNIl!    .LT.   0.0)   F  ON ( 1 )   =  0.0 

84  IFIOIE    .LT.    FONll))    DIE    =  FON(l) 
FDN ( 1 )    =   TRE    *    (1.0   -   01 E I 

MNK  =  FDN(l)    ♦  0.5 
FDN(l)   =  MNK 

FBA(l)    =  FON(l)    *   0.0054542   *  FDM(l)    *  FDMIII 
TDM ( 1 )   =  FDM(l) 
TBA  (  1  I    =  FBA( 1 1 
HT ( 1 )    =    FHT ( 1 ) 

AGE(KI)     =  AGE ( K I )   *  RINT(KAK) 

85  CONTINUE 

D2H   =   F DM  111    *   FOMI 1 )    *   FHT ( 1 ) 
IFI02H   .GT.   7000.0)   GO  TO  86 
FVLI1)    =    (0.00276  «  D2H  -  0.00059 
GO  TO  87 

86  FVL(l)   =   (0.00248   *  D2H  ♦  1.96336) 

87  RETURN 


FBAl 1 )   -  0. 00577) 


SECTION   9   -   HEIGHT   AND   VOLUME    BEFORE  THINNING. 

90  IFIAGEO   .GT.   45.0)   GO  TO  91 

HTSO  =   3.86111   -   0.05979  *  AGED  ♦  0.01215  *  AGEO  *  SITE 
GO  TO  92 

91  HTSO  =  0.33401   -  33.2866   /   AGEO  ♦  0.92341   *  ALOGIO(SITE)   +  6.27811 
1«  ALOG10ISITEI   /  AGEO 

HTSO  =   10.0  **  HTSO 

92  HTSO  =  HTSO  «•  HTCUM 

D2H  =  DBHO  *  OBHO  *  HTSO 
IFID2H   .GT.   7000.0)   GO  TO  93 

TOTO  =   (0.00276   *  D2H  -  0.00059  *   BASO  -   0.00577)    *  DENO 
GO  TO  94 

93  TOTO  =   (0.00248   *  02 H  ♦   1  .96336)    *  DENO 

94  RETURN 

SECTION   10  -  HEIGHT  AND  TOTAL   CUBIC   FEET  PER  ACRE   AFTER  THINNING. 

100  ADDHT   =   6.7995   -   3.41979   «  ALOG101PRETI 
HTCUM    =    HTCUM    ♦  ADDHT 

HTST  =  HTSO  *  ADDHT 

D2H  =  DBHT  *  DBHT   *  HTST 

IFID2H  .GT.   7000.0)   GO  TO  101 

TOTT  =   1  0.00276  *  02 H  -  0.00059   <•  BAST  -  0.00577)   *  DENT 
GO  TO  102 

101  TOTT  =   (0.00248   *  D2H   t   1.96336)    *  DENT 

102  RETURN 

SECTION   11   -  D.B.H.   AT   END  OF   PROJECTION  PERIOD. 

110  DBhO  =   1.0222»DBHT   +  0.0l51*SITE  -   1 . 241 7*AL0G10 ( BAST >   *  2.1450 
RETURN 


C   SECTION  12  -  MORTALITY   AS   A  PERCENTAGE  OF   INITIAL  DENSITY. 
C 

120  OENO  =  0.05285  -  0.01346   *  DBHT   <■   0.00226  *  DBHT  *  DBHT   *   0.  000006 
16  »  BAST  »  BAST  -  0. 0001931   *  DBHT   *  BAST 
RETURN 
END 

Subroutine  SWPP 

SUBROUTINE  SWPP 

C 

C   LOCATION  F OR  ALL   SPECIES  -  SPECIFIC   STATEMENTS  APPLICABLE   TO  PONDEROSA 

C  PINE   IN  ARIZONA  AND  NEW  MEXICO. 

C 

COMMON  ADD, AGEI2), AGEO, BA(2),BASI2), PASO, BAST, BAUS, BFM^CH.RFVOL, 
1CFV0L,DATE(6I,DBH(2), DBHE , DBHO, DBHT, OENI 2  ) , DENO, 0ENT,0MUS,FBA(2), 
2FCTR(2),FDM(2),FDN(2),FHT(2),F0RET(19),FVL(2),HT(2),HTCUM,HTS0, 
3HTST,KAK,KN0,MIN, MNK, NBK,NCMP,NSUB,NWGP, PDBHE, PRET,PR00(2I, REST, 
4SAVE,S8ARB,S6ARE,SBARG,SBAS,SITE,SLAND,TBA(2),TDM(2),TEM,TIME,TMSR 
5,TMPO,TOTI2),TOTO,TOTT,TVL(2),VDMI2),VLUS,DM-!I2I 

COMMON  ABFAG(5,15),ACINT(5I,ADJ(5),AGETH(5,14I,ALLCF(5,14),AL0WCI5 

1)  ,ALWBFI5),AMCAG(5,15)>ANCUT<5,14),AREAI5,14),BDMAI|5),8FAGEIE.15> 
2,BFINT(5),CFAGE(5,15),CFBF15,14), COMBFI  5),C0MCU(5),CUCY(5I,CUINT(5 
3>,CUMAI(5I,DBHTHI5,14),0ELAY(5),DENTHI5,14I,DLEVI5),FNBDI5], 
4FNCU<  5) , GROWS ( 5,2, 141 , GR3WC I5,2,14),GVLRF(5),GVLCU(5),INVL(5,3,14I 
5.NSI (5) ,OPBD ( 5) ,OPCU( 5) ,PAIBD(5>,PAICU(5I ,P0OR(  51, RE GN  (5, 3, 141, 
6RINT(5),SARSP(5),SBF(5),SHELT(5,2,14),SHWD(5,2,14),SMC(5),SMSP(5), 
7SUB8F(5,14),SUBCF(5,14),SUMCF(5),SYST(5),THIN(5),VLLV(5,3,14), 
8WGNUM ( 5 ) , WGPOESI 5, 20) ,WGPNM(5,3),SPNUM(5),TPB(5,7),PASP(5,7) 

COMMON  AcBAR(7I,ARBK(7),BARSI(7,14),BFTH(7,27),CmTH(7,27),CUTA(7,2 
17l,;uTB(7,27),HELP(7,27),Ns8K(7),0PEN(7,27),PRRSI(7,14),PDrFN(7,27 

2)  ,PDCFR(7,27),PSPLT|7,27),PUNC(7,27),SARETYi7,35),SLVGI7,27|,SPLT( 
37,27),TMTYI7I,UNCML(7,27I,PABRI7),PARTY(7,35) 

COMMON  ACFNL(5,7,15),ACR3N(5,7,15),ACSI(5,7,14),ACSP(5,7),GRBD(5,7 
1.15),GRMC(5.7,15),PS(5,7,14),STYP(35),TYPNM(35,5),P4SI(5,7,14) 

C 

COMMON   /BLKD/   I  J, I K,KI , VOL.TVOl 

C 

GO  TO   (10,20.30,40,50,60,70,80,90,100,110,120),  Ij 

C 

C   SECTION   1   -  TOTAL  CUBIC  FOOT  VOLUME. 
C 

10  D2H    =    D8HIIKI    *    OBH(IK)    *    HT  (  IK) 
IFI02H   .GT.   5000.0)   GO  To  11 

TOT(IK)   =    (0.53311   *  0.00033   «  BAS(IK)   *  0.00179  *  D2H )   <■  DEN(IK) 
GO  TO  12 

11  TOT ( I K I    =    (0.00237   *   BAS(IK)    *  0.00211   *   D2H  -    1.093561   »  DEN(IK) 

12  RETURN 

C 

C   SECTION  2  -  VOLUME  CONVERSION  FACTORS. 

C   MERCH.   CU.   FT.   -  TREES  6.0   INCHES   D.B.H.   AND  LARGE?    TO  4-INCH   TOP . 
C  BD.   FT.   -  TREES   10.0   INCHES   D.B.H.   AND  LARGEP   TO  VARIABLE   TOP  LIMIT. 


20 

DO   21  J=l 
FCTR(J)  = 

,2 
0.0 

21 

PROD(J)  = 
DO   26  1=1 

0.0 
KNO 

I F ( VDM ( I  I 

.LE.  4.99) 

GO  TO  26 

IFIVOMI I ) 

.GT.  6.5) 

GO  TO  22 

FGTR ( I  I  = 

0.25222  « 

VDM(I)  - 

1.01119 

GO   TO  24 

22 

IF ( VDM( I ) 

.GT.  10.0) 

GO  TO  23 

FCTR(I)  = 

3.02485  - 

0.09957  « 

VDM( I ) 

GO  TO  24 

23 

FCTR(I)  = 

1.03936  - 

1.41034  / 

VDM ( I ) 

24 

IF ( VDM ( I ) 

.LE.  7.99) 

GO  TO  26 

I F I VDMI I  I 

.GT.  11.5) 

GO  TO  25 

PRODI  I)  = 

0.0028  *  BA I  I  )    ♦  0. 

04355  « 

GO  TO  26 

25 

PRODII)  = 

0.83943  » 

0.20531  * 

VDMI I) 

26 

CONTI NUE 
RETURN 

11.35814   /  VDMII) 


VDMI I )    *   VDMI I ) 


C   SECTION  3  -  GROWTH  FOR  NEXT  PERIOD. 
C 

30  DO  35  1=1,2 

TMDY  =  AGE  I  I  )    ♦  TIME 
IFITMDY  .LT.   TEM)   GO  TO  35 
I  F  I  HT  I  I  )    .  LE.    0.0  1    GO   TO  31 

EOMII)   =   0.88511   «  OR  H ( I )   «■   1.29735  *  AL0G10I HT I  I ) )   *  0.00119 
1DBHII)   »   SITE  *   62.37174  /   SBAS   -  1.56975 
I F  I  OMR  III    .LE.   3.5)   GO  TO  31 

TEM  =   (FDMIII   -  DBHIIII   *   (1  .0  -   (  0.056  *  DMR I  I  I   -  0.1971) 
FDMI I )   =   OBHl I )   *  TEM 

31  DIE   =  0.0 

1.0)   GO  TO  32 

*  4.42271   *  OMRII)   -  0.36374 


IFIDMRIII  .LT. 
DIE   =  20.66469 
1ALOG10IDENI I  I  I 
DIE  =  DIE  *  0.01 
IFOIE   .LT.   0.01    DIE   =  0.0 

32  FDNI II   =  0.0 

IFIDBHI  I  I    .GE.    10. 0)   GO  TO  33 
FONII)    =  0.00247  «■  0.00124  *  DBHII) 
10.00000521   «   SBAS  *  SB'S   -  0. 0000905 
IFIFDNIl)    .LT.    0.3)    FONII)    =  0.0 

33  IFIOIE    .LT.    FDNIIII    DIE   =   FONII I 
FDNI I  I    =  DEN  I  I  I   *   (1.0  -  DIE) 
MNK  =  FDNI II   +  0.5 

FDN (II    =  MNK 

FBA(I)   =  0.0054542   *   FDMIII   *  FDMIII 
FHT I  1  )    =    15.43321    *   1  .  137   *   HTIII  - 
1SITE   -  0.02447   *  SITE   *  SBAS  /  100.0 
PCT   =   1  .0  -  0.0002  *   DMRIII    *  DMR I  I ) 
CHNG  =   IFHTI I )   -  HTI I  I  I    •  PCT 
FHTI I  I    =   HTIII    ♦  CHNG 
D2H   =   FDMI I  I    *   FDMI  I  I    *   FHTI  I  ) 
IFID2H   .GT.    5000.0)   GO  TO  34 
FVLII)    =    (0.53313   *   0.00033    *  FBAII) 
GO  TO  35 

34  FVLII I    =  (0.00237 

35  CONTINUE 
RETURN 


SITE  +  3.B7613 


3.00028 
OBHl II 


«  FDNI I ) 
.08637  4 


DBHI I ) 
SBAS 


304.12172  / 


FBAII)   t  0.03211   »  02H  -   1.09356)    *  FDNIII 


C   SECTION  4  -  FUTURE  UNTHINNED  UNDERSTORY   IF  OVERSTORY  REDUCED  NOW. 

C 

40  DMUS  =  0.  8851  1   *  0BHI2)    ♦   1  .29735   *  AL0G10I HT I  2 1  I   +  0.00119  * 
121    *   SITE   ♦  62.37174   /   8ASI2I   -  1.56975 

I F ( DMR (2 1    -LE .    3.5  1    GO   TO  41 

TEM  =   (DMUS  -  DBHI2II    *   II. 0  -   1  0.056  *  DMR I  2 )   -  0.197)1 
DMUS  =   D8HI2I    t  TEM 

41  DIE   =  0.0 

IFI0MRI2I    .LT.    1.01    GO  TO  42 
DIE    =   20.66469   +   4.42271   *   DMR ( 2  I 
1 ALO510 (DENI 2  I  I 
DIE   =  DIE   *  0.01 
IFIOIE   .LT.   0.0)    DIE   =  3.0 

42  ONUS   =  0.0 
IFI0BHI2I    .GE.    10.01    GO  TO  43 
DNUS   =  0.00247  t  0.00124  t  0BHI2I 

10.30030521   »   BASI2)   *   BASI2)   -  0.0000905 
IFIONUS   .LT.   0.01    DNUS  =  0.0 

43  IFIDIE   .LT.   DNUSI   DIE   =  DNUS 
DNUS   =  DEN(2I   *   (1.0  -  ONUSI 
MNK   =   DNUS   ♦  0.5 
DNUS   =  MNK 

BAUS  =   0.0054542   *  DMUS  *  DMuS  *  DNUS 
HTUS  =   15.43321   ♦   1.107   *  HT(2)    -  0.08637  *  AGE ( 2 ) 
1SITE   -   0.02447   *  SITE  *  BASI2)   /  100.0 
PCT   =   1  .0  -  0.0002  *  DMRI2I    «  DMR ( 2 )    *   DMR I  2 ) 
CHNG  =   (HTUS  -  HTI2II    *  PCT 
HTUS  =  HTI2)   ♦  CHNG 
D2H   =   DMUS   «   DMUS   *  HTUS 
IFID2H   .GT.   5000.01   GO  TO  44 
VLUS   =   10.53313  ♦   0.00033   «  BAUS 
GO  TO  45 

44  VLUS  =   10.00237   *  BAUS  *  0.00211 

45  RETURN 


36374   *    SITE    <■   3.  87613 


00028   *  DBHI2I    *  DBHI2I 
OB  H I  2 )   *  BASI2I 


304.12172  / 


0.001  79  *  02 H I 


D2H 


1.093561   «  DNUS 


C   SECTION  5  -  NEW  D.B.H.    AFTER  THINNING. 

C 

50  IFIPRET    .LT.    50.0)    GO   TO  51 

DBHE   =  0.73365   *   1.02008   *  DBHO  -  0.01107  *   IPRET  -   50.01    -  0.0001 
14  «    IPRET  -  50.0)    «   IPRET   -  50.31 
GO  TO  52 

51  PDBHE   =  0.49401   t  0.71893  *   ALOGlOl D8H0)   -  0.22530  «  ALOGIO(PRET) 
I   *   0.12616  *  ALOG10IDBH0I    »  ALOG10IPRETI 

DBHE   =   10. C   •*  PDBHE 

52  RETURN 

C 

C  SECTION  6  -  CUBIC  FEET  AS   BYPROOUCT   OF  SAWLDG  CUT . 
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60  ADD  =  VOL  »   II. ".0315  ♦  10. 2*272  /  DBHIKII) 
ADD  =  TVOL  -  ADD 

IFCADD   .IT.   COMCUIKAK))    ADD  =  0.5 
RETURN 

C 

C  SECTION   7  -  VOLUME   IF  THINNED  NOW  ANO   IF   THINNED   IN   TIME  YEARS. 
C 

70  HTIKll   =  HT1KII    <•  7.64833  -  3.82286  «  ALOGIOIPRETI 
TEM  =  TBAIIKI   /   (0.0054542   »  TOMIIK)   •  TDMIIKI) 
D2H    =    TDMIIKI    t    TDM ( IK)    •  HTIKll 

IFI02H  .GT.   5000.0)   GO  TO  71 

TVLIIKI    -    (0.53313   ♦  0.00033  *  TBAIIKI    »  0.00179  »  D2H)   •  TEM 
GO  "TO  72 

71  TVLIIKI    =    10.00237   •  TBAIIKI    »  0.O0211   *  02H  -   1. 09356)   •  TEM 

72  RETURN 

C 

C  SECTION  8  -  STATUS   AT   ENO  OF  PERIOD   IF  THINNED  AT  START  OF  PERIOD. 
C 

80  J   =   TIME    /   R I  NT  I KAK | 
DO  84   1  =  1, J 

I F I TBAI 1  I    . LE.    0.0  1    GO  TO  84 

HT(1)   =  HTI1I    *   7.64833  -   3.82286  •  ALOG10ISAVEI 

FDMI1)   =   1.0097  »   TDM  1 1  I   *  0.0096   «   SITE   -   1  .5766   •  AL0G1CIT8AI II  I 
1  *  3.3021 
I F I  OMR  I  1  I    . LE.    3.5  1    GO   TO   8  1 

TEM  =   (FOMIll   -  TOM  I  I ) )    »   (1.0  -   IC.  056  *  0MRI1)   -  0.197)1 
F DM  I  1 1   =   TDM  I  1 1   ♦  TEM 

81  FHTIll    =    15.43021    ♦    1.137   «   HT|1I    -   0.08637   •   AGE  I K I  )    -    304.  1217? 
1    /  SITE   -  0.02447   »  SHE   «  TBAI  1  )   /  100.0 

PCT   =   1.  5  -  0.0002  «   OMR  I  1 1   «  DMR(l)    »  OMR  I  1 ) 
CHN3  =   (FHTIl)   -  HT(ll)   *  PCT 
FHTIll   =   HTI1)   ♦  CHNG 
DIE  =  0.5 

IF ( DMR I  1 )    .LT .    1.0  1    GO  TO  82 

ITEM  =   T8AI1I    /    10.0054542   *   TDM  I  1 )   *  T  DM  I  1 ) )    ♦  0.5 
TEM  =  ITEM 

DIE   =  20.66469  ♦  4.42271   «  DMR I  1  )   -  0.  36374  *   SITE   »   3.87613  * 
lALOSlO(TEH) 
DIE  =  DIE  »  0.01 
IF  101 E   .LT.   0.0 )   OIE  =  3.0 

82  FDNI  1  I   =  5.0 

ITRE  =   (TBAI1I   /   1  0.0054542   «   T  DM  I  1 )   '  TDMIHil   ♦  0.5 
TRE   =  ITRE 

IF(TDMIl)    .GE.   10.0)   GO  TO  83 

F0NI1I   =   5.00247  ♦  0.00124  *  TDM ( 1  I   *  0.00028  •  TDMI1I    «   TDM  I  1 )  f 
10.  00000521   «  TR4I1)   *   TBA(l)   -  0.0000905   *  TDM  I l )    »  TBA(l) 
IFIF0NI1)    .LT.    0.0)    FDNI1)    =  0.0 

83  IFI5IE   .LT.   FDN 1 1 ) )   DIE  =  FDN(l) 
F0NI1)   =   TRE   *   (1.0  -  DIE) 

MNK  =  FDNI  1)   ♦  0.5 
FDN I  1 )    =  MNK 

FBAI1I    =   FDN I  1  )    0   0.0054542   *   FOMIll    «  FDMIl) 


TDMIll  =  FDMIl) 
TBAI  1  )  =  FBAI  1  ) 
HT I  1 )    =  FHTIl) 

AGE  I KI )   =   AGE  I  K I  I    ♦  R I  NT  I KAK ) 

84  CONTINUE 

02H    =    FDMIl)    *    FDMIll    t  FHTIl) 
IFID2H   .GT.   5000.3)   GO  TO  85 

FVLI1  )  =  10.  53313  ♦  0  .30533  *  FBAI  1  )  t  0.00179  «  D2HI  •  FDNI1) 
GO  TO  86 

85  FVLI1)    =    10.00237  •  FBAI1)   »  0.00211   ♦  D2H  -   1.093561    •  FDNI1) 

86  RETURN 

SECTION  9  -  HEIGHT   AND  VOLUME   BEFORE  THINNING. 


90   IFIAGEO   .GT.   55.31    GO  TO  91 

HTSO  =  0.01441   *  AGEO  '  SITE  -  0.12162  »  AGEO 


1.50953 


GO  TO  92 

91  HTSO  =   0.59947  -  61.5019  /  AGEO  ♦  0.80522  •  AL0G10ISITE)    *  20 
18  *  ALOGIO(SITE)   /  AGEO 

HTSO  =   10.0  **  HTSO 

92  HTSO  =  HTSO  ♦  HTCUM 

02H  =  DBHO  *  DBHO  *  HTSO 
IFI02H   .GT.   5000.0)   GO  TO  93 

TOTO  =    10.53313   ♦  0.00033   «   BASO   ♦  0.00179  *  D2H)   *  DEND 
GO  TO  94 

93  TOTO  =    (0.00237   »  BASO  ♦  0.OC211   »  D2H  -   1.09356)    *  DENO 

94  RETURN 

C 

C   SECTION   10  -  HEIGHT  AND  TOTAL   CUBIC  FEET  PER  ACRE   AFTER  THINNING. 

C 

100  ADO H T  =   7.64833  -   3.82286  *  ALOGIOIPRETI 
HTCUM    =    HTCUM    *  ADDHT 

HTST  =   HTSO  ♦  AODHT 

D2H  =  DBHT  *  DBHT  *  HTST 

IFID2H   .GT.   5000.5)   GO  TO  101 

TOTT   =    10.53313   ♦   0.00033   *  BAST  ♦  3.00179  *  D2HI   *  DENT 
GO  TO  102 

101  TOTT   =   10.00237   «  BAST  *  0.00211   *  D2H  -   1.09356)    «  DENT 

102  RETUkN 


C   SECTION  11 


AT  END  OF   PROJECTION  PERIOD. 

0.0095*SITE  -  1. 5766»ALOGlol BAST)   +  3.3021 


110  DBHO  =  1.00974DBHT 
RE  TURN 

C 

C   SECTION   12   -   MORTALITY  As   A  PERCENTAGE  OF   INITIAL  DENSITY. 

C 

120  DENO  ■  0.00247   ♦  0.00124  *  DBHT   ♦  0.00028  *  DBHT  «   DBHT  +  0.000035 
121   *  BAST  *  BAST  -  0.0000905   »  DBHT   *  BAST 
RETURN 
ENO 
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APPENDIX  2 


An  Application  of  TEVAP2 


An  example  of  what  TEVAP2  can  do  is 
provided  by  the  hypothetical  situation  described 
below  and  by  reproductions  of  the  computer 
records  produced.  The  test  forest,  the  mythical 
Bogus  National  Forest,  is  managed  as  one  work- 
ing circle.  The  working  circle  is  subdivided  into 
three  blocks  on  the  basis  of  topography,  trans- 
portation system,  and  distribution  of  wood-using 
plants.  Total  areas  of  each  block,  interior  tracts 
of  other  ownership,  high-use  recreation  areas, 
and  so  forth,  are  known.  The  forest  has  not  yet 
been  subdivided  into  compartments;  theAREA2 
option  of  TEVAP2  is  applicable. 

Numerous  decisions  have  been  made  con- 
cerning management  objectives  and  how  they 
may  be  attained.  Past  records  of  the  forest  and 
silvicultural  characteristics  of  each  species  were 
considered  during  the  planning  process.  Deci- 
sionmaking was  assisted  by  computer  simulation 
of  forest  activities  (Myers  1973).  The  effects  of 
changes  in  rotation  length  and  other  variables 
subject  to  control  were  examined.  It  was  decided 
that  the  controls  listed  below  would  apply  to 
timber  management  on  the  working  circle.  These 
controls  are  not  recommendations  for  manage- 
ment of  the  species  named;  they  are  intended 
only  to  show  the  variability  possible  with 
TEVAP2.  Controls  applicable  to  any  specific 
area  and  management  objectives  can  be  deter- 
mined (Myers  1971,  Myers  1973). 


Working  groups. 

a.  Ponderosa  1  — Ponderosa  pine  under 
two-cut  shelterwood  in  remote  areas  of  the 
forest. 

b.  Ponderosa  2  — Ponderosa  pine  under 
three-cut  shelterwood  where  recreation  use  is 
heavy. 

c.  Lodgepole  —  Lodgepole  pine  clearcut  in 
small  patches  with  natural  regeneration  from 
serotinous  cones. 


Rotations. 

a.  Ponderosa  1  —  110  years,  with  final 
felling  age  of  130  years. 

b.  Ponderosa  2  —  110  years,  with  final 
felling  age  of  140  years,  for  all  sites  except  that 
site  40  will  be  90  years  with  final  felling  age  of 
120  years. 

c.  Lodgepole  — 120  years. 


Thinning. 

a.  Ponderosa  1  — Initial  thinning  at  age  30 
to  level  120.  Subsequent  thinnings  at  20-year 
intervals  to  level  100. 

b.  Ponderosa  2  — Initial  thinning  at  age  30 
to  level  110.  Subsequent  thinnings  at  20-year 
intervals  to  level  90. 

c.  Lodgepole  —  Initial  thinning  at  age  30  to 
level  110.  Subsequent  thinnings  at  30-year  inter- 
vals to  level  100. 


Minimum  site  class  to  be  managed  for  wood 
products. 

a.  Ponderosa  1  — Site  index  50. 

b.  Ponderosa  2  —  Site  index  40. 

c.  Lodgepole  —  Site  index  50. 

Several  decisions  provided  as  inputs  to  the 
program  are  recorded  on  page  type  4  of  the 
output  reproduced  below.  Other  input  data  are 
recorded  on  pages  of  types  1,  8,  and  11. 

An  inventory  of  the  timber  resource  and 
analysis  of  the  data  were  completed  5  years 
ago.  At  that  time,  summary  cards  with  the 
items  specified  for  data  card  type  9  were 
punched.  The  inventory  file  has  increased  annu- 
ally through  addition  of  records  that  describe 
thinning  jobs,  fires,  and  other  changes  affecting 
tracts  of  known  area.  The  inventory  file  now 
consists  of  251  records,  104  of  which  are  job 
and  similar  reports;  147  sample  "unknown"  parts 
of  the  working  circle.  All  inventory  records  are 
updated  to  a  common  time  base  annually  (ap- 
pendix 4). 

Land  books  and  other  records  provide  the 
total  number  of  acres  in  each  block  and  the 
area  occupied  by  nonforest  vegetative  and  use 
types  28  to  33,  inclusive.  These  acreages  are 
recorded  on  pages  type  5  and  6  of  the  output. 

The  situation  described  requires  that  data 
cards  of  all  types  except  11  through  16  be  used. 

Output  pages  reproduced  below  are  in  the 
order  in  which  they  might  appear  in  a  manage- 
ment plan,  not  in  the  order  printed.  For 
brevity,  only  two  sheets  each  of  pages  type  8, 
9,  and  10  are  reproduced.  Complete  output  would 
include  several  sheets  of  each  of  these  types, 
one  for  each  site  index  class  of  each  working 
group.  Examples  of  pages  produced  with  the 
other  area  options  and  with  card  types  11 
through  16  appear  in  appendix  3. 


A  management  guide  can  be  produced  annu- 
ally, or  more  frequently,  for  distribution  to  ap- 
propriate land  managers  and  staff.  The  example 
below  required  91.0  seconds  of  central  processor 
time  for  compilation  and  execution.  After  con- 
verting the  source  program  to  a  binary  deck, 


central  processor  time  was  16.2  seconds  for 
execution.  The  vast  saving  of  time  and  money 
over  conventional  methods  of  plan  preparation 
certainly  should  permit  a  timber  manager  to 
have  an  updated  management  plan  whenever 
he  wants  one. 


PAGE   TYPE  1 


GUIPE   FOR  MANAGEMENT 
BASED  ON   DATA  CURRENT   TO   JANUARY  1, 


BOGUS   NATIONAL  FOREST 


1974 


THE  WORKING  CIRCLE  CONSISTS  OF  884981. L  ACRES.  OF  THESE,  837181.7  ACRES  ARE  OwNED  BY  U.S.  AND  47799.4  ACRES  ARE  INTERIOR 
TRACTS   OF   OTHER  OWNERSHIP.    OUR   AREA   INCLUDES       693717.3  TIMBEREO  ACRES,        110838.2   PL ANTAB LE   ACRES,  16397.6  ACRES   MANAGED  AS 

RANGE ,   AND  6911.1   ACRES   OF  HIGH  RECREATION  USE  WHERE   TIMBER  YIELDS  ARE    INCIDENTAL   AND  NOT   REGULATED.    SEE   PAGE  TYPE    5,    6,  7, 

AND  14   FOR   AREA  CLASSIFICATION. 

THE  TIMBER  RESOURCE  OF   THIS   WORKP"   CIRCLE   WILL   BE   MANAGED   AS  FOLL0WS- 

PONDERCSA   1      -  TWO  -  CUT   SHE  LT  E  RwOOD  WITH  20-YEAR   REGENERATION  PERIOD. 
PONDERCSA   2     -  THREE  -   CUT   SHEL  TERWOOD  WITH   30-YEAR   REGENERATION  PERIOD. 
LODGEPOLE         -  CLEARCUTTING   SMALL   ARE  AS ,    SEEOING   FROM  SLASH. 

REGULATION  OF    THE   CLT   WILL   BE   BY   AREA   WITH   A  VCLUME  CHECK. 

WITH  THE   DECISIONS   AND  AREAS   CN   PAGES   TYPE   4  AND   11   AND  WITH  BALANCED  DISTRIBUTION   OF   AGE   CLASSES,    ALLOWABLE   ANNUAL  CUT  WOULO 
BE   AS  FOLLOWS- 


HUNDREDS  OF 

ACRES 

Ctl.  FT. 

M  BD.  FT. 

REGENERATION  CUTS 

PONDERO  SA  1 

298  8.2 

0.0 

28294.4 

PONDERCSA  2 

7695.4 

0.0 

47770.7 

LODGEPOLE 

454.4 

0.0 

8564.2 

FINAL   REMOVAL  CUTS 

PONDERCSA  1 

2988.2 

0.0 

27507.4 

PONDEROSA  2 

3847.7 

0.0 

19852.0 

LODGEPOLE 

0.0 

0.0 

0.0 

INTERMEDIATE  CUTS 

PONDERCSA  1 

11952.8 

23217.5 

5345.9 

PONDEROSA  2 

14460, 7 

16116.5 

7772.6 

LODGEPOLE 

136  3.1 

773.3 

4139.8 

TOTAL  FOR   CNE  YEAR 

PONDEROSA  1 

17929.1 

23217.5 

61147.8 

PONDERCSA  2 

26003.9 

16116.5 

75395.3 

LODGEPOLE 

1817.5 

773.3 

12704.0 

TH  TAL  ALL  GROUPS 

45750.5 

40107.3 

149247. 1 

GROUPS  DCES  NOT  INCLUDE 

DEFERRED  GRGUPS, 

IF  PRESENT . 

PAGE  TYPE    1,  CONT. 

ONLY  COMMERCIAL  VOLUMES   ARE    INCLUDED   IN  THE  TABLES  OF   PAGE   TYPE    1.   CUTS  ARE   ASSIGNED  TO  BOARD  FOOT   TOTALS    IF   POSSIBLE.  THEY 
APPEAR    IN   CUBIC-FOQT   TOTALS  ONLY   WHEN  COMMERCIAL   SAWLOG  CUTS   ARE   NOT   POSSIBLE.   AREAS  OF   INTERMEDIATE   CUTS    INCLUDE  ACREAGE  OF 
NONCOMMERCIAL   SHOWN  ON   PAGE   TYPE  2. 

ACTUAL  VOLUMES  CUT  DURING  THE  NExT  PERIOD  COUlC  BE  AS  SHOWN  ON  PAGES  TYPE  2  IF  ALL  POSSIBLE  CULTURAL  OPERATIONS,  AS  INDICATED 
BY   WORK   CODES,   WERE   PERFORMED.   POTENTIAL   ANNUAL  CUTS   WOULD   THEN   BE — 


REGENERATION  CUTS 


FINAL   REMOVAL  CUTS 


INTERMEDIATE  CUTS 


TCTAL   FOR   CNE  YEAR 


HUNDREOS  OF 
CU.  FT. 


M  BO.  FT. 


PONDEROSA  1 
PONDERCSA  2 
LODGEPOLE 


6226.0 
5566.4 
447.4 


29253.9 
18871.4 
0.0 


73149. 3 
43419.3 
7012.4 


PONDERCSA  1 
PONOEROSA  2 
LODGEPOLE 


2600.9 
6494.1 
0.0 


32.1 
3269.4 
0.0 


4738.2 
31464.6 
0.0 


PONDEROSA  1 
PONDEROSA  2 
LODGEPOLE 


13527.3 
17632.3 
2357.7 


42761.9 
22869.9 
9536.6 


3368.5 
15422.3 
10187.6 


PONDEROSA  1 
PONDERCSA  2 
LODGEPCLE 


22354.2 
29692.8 
2805.1 


72048.0 
45C10.7 
9536.6 


81256.0 
90306. 1 
17200.0 


TOTAL   ALL  GROUPS 


54852.2 


126595.4 


188762. 1 


PAGE   TYPE    I,  CONT. 


THE  FIRST   TABLE,   ABOVE,   REPRESENTS   YIELDS   FROM   AREA  REGULATION  WHEN   VOLUME   AND  AREA  GOALS  HAVE   BEEN  ATTAINEO. 

THE   SECOND  TABLE   CAN   REPRESENT   AREA  REGULATION  IF- 

(1)    VOLUME   AND   AREA   GOALS   HAVE   NOT   BEEN  ATTAINED 

121    WORK  CODING   IS   SUCH   THAT   THE   AREA   VALUES   OF  THE   SECONO  TABLE   EQUAL   AREAS  OF    THE   FIRST  TABLE. 
IF   NEITHER   OF   THESE  ALTERNATIVES   APPLY,    YIELDS   FROM   AREA  REGULATION   WILL   BE   AS  FOLLOWS- 

HUNDREDS  OF 

ACRES  CU.   FT.  M  BD.  FT. 

REGENERATION  CUTS 


PONDEROSA  1 
PONOEROSA  2 
LODGEPCLE 


2988.2 
7695.4 
454.4 


14040.6 
26089.3 
0.0 


35108.3 
60026.2 
7120.9 


FINAL   REMOVAL  CUTS 


PONDEROSA  1 
PONOEROSA  2 
LOOGEPOLE 


2988.2 
3847.7 
0.0 


36.9 
1937. 1 
0.0 


5443. 8 
18642.5 
0.0 


INTERMEDIATE  CUTS 


PONDEROSA  1 
PONDEROSA  2 
LOOGEPOLE 


11952.8 
14460.7 
1363.1 


52795.5 
43604. 1 
4337.0 


4  158.9 
29404.3 
4633.0 


TCTAL   FOR   ONE  YEAR 


PONDEROSA  1 
PONDEROSA  2 
LODGEPCLE 


17929. 1 
26003.9 
1817.5 


66873.0 
71630.5 
4337.0 


44711.0 
108073.0 
11753.9 


TCTAL   ALL  GROUPS 


PAGE   TYPE    1,  CONT. 


FORMULA   COMPUTATION  OF   ALLOWABLE   ANNUAL  CUT.   CUBIC-FOOT  VOLUMES   INCLUDE    SAWLOG  TREES- 

HEYER   FORMULA   WITH   M.A.I.   FROM  OPTIMUM   YIELD  TABLES   AND  COMPUTED  GROWING  STOCKS 


PONDEROSA  1 
PONDEROSA  2 
LOOGEPOLE 


ADJUSTMENT 
PERIOD 

30.0 
30.0 
30.0 


HUNDREDS  OF 
CU.  FT. 

141303.9 
123034.8 
55601.2 


TOTAL  319939.9 
MEAN  ANNUAL    INCREMENTS   USED  TO  OBTAIN  THE   RESULTS   TABULATED  ABOVE 


PONDEROSA  1 
PONOEROSA  2 
LOOGEPOLE 


ADJUSTMENT 
PERIOD 

30.0 
30.0 
30.0 


HUNDREDS  OF 
CU.  FT. 

153849.4 
183169.6 
29323.4 


46849. 7 
52369. 7 
22980.0 


M   BD.  FT. 

62386. 7 
75746.3 
12704.0 


FORMULA   COMPUTATIONS   ARE   BASED  ON  VOLUME   AND  AREA  COMPUTATIONS   SUMMARIZED  ON  OTHER   PAGES.    VOLUME   GOALS   ARE   ON   PAGES  TYPE 

4,    8,   9,    10,    ANO   11.    ACTUAL   AREAS  AND  VOLUMES   ARE   ON  PAGES   TYPE   6,    7,    13,  AND   14.   CUBIC   VOLUMES   INCLUDE   ALL  TREES  LARGER 
AND  OLDER   THAN  MINIMUM  LIMITS  FOR   INCLUSION   IN  GROWING  STOCK  VOLUME. 

STANDS   SELECTED   FOR  HARVEST   AND   REGENERATION  WILL    INCLUDE   THOSE  CLASSEO   AS   WORK    INDEX  4,    5,   OR   6.    IT    IS  EXPECTED   THAT  NEARLY 

EQUAL  AREAS  WILL  BE  CUT  ANNUALLY  IN  STANDS  OF  EACH  SITE  CLASS.  IF  THIS  IS  NOT  DESIRABLE,  FACTORS  THAT  INDICATE  RELATIVE  VOLUME 
PRODUCTION    (PAGE   TYPE    12)    MAY  BE  USED   FOR   AREA  ADJUSTMENTS. 

IF   WORK    IS   DONE   DURING   NEXT   PERIOD  AS   SPECIFIED  BY   WORK   INDEXES,    PERIODIC  ANNUAL    INCREMENTS  WILL   BE  - 

HUNDREDS  OF 

CU.    FT.  M  BO.  FT. 


PONDEROSA  1 
PONDEROSA  2 
LOOGEPOLE 


205554.6 
165101.4 
39320.2 


83532.8 
57266.2 
18864. 7 
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PAGE   TYPE  2 

POTENTIAL   WORK   LOAD  AND  YIELDS  FOR  NEXT  PERIOD 
BOGUS  NATIONAL  FOREST 


ACRES   OF  COMMERCIAL   THINNING  DURING  NEXT  PERIOD 


0.0 
0.0 
0.0 


0.0 
72*7.6 
0.0 


14530.7 
18036.7 
0.0 


25657, 
7136. 
0, 


0.0 
0.0 
0.0 


40188.2 
32420.8 
0.0 


HUNOREDS  OF  CU .    FT.   REMOVED  BY  THINNING 


0.0 
0.0 

o.o 


o.o 

41244.0 
0.0 


116079.7 
115856.0 
0.0 


122260. 1 
32179.6 
0.0 


0.0 
0.0 
0.0 


238339.7 
189279.6 
0.0 


M  BD.   FT.   REMOVED  BY  THINNING 


0.0 
0.0 
0.0 


0.0 

o.o 
o.o 


o.o 

0.0 
0.0 


33685.0 
0.0 
0.0 


0.0 
0.0 
0.0 


33685, 
0, 
0. 


PAGE  TYPE  2 


M  BD.    FT.    TO  BE   HARVESTED  BY  REGENERATION  CUTS 


0.0 
0.0 
0.0 


0.0 
0.0 
0.0 


270723.4 
153043. 8 
0.0 


200067.3 
107658.3 
0.0 


470790, 
260702, 
0. 


HUNDREDS   OF   CU .   FT.   FROM  REGENERATION  CUTS 


TYPE  2 


0.0 
0.0 
0.0 


0.0 
0.0 
0.0 


0.0 
623.6 
0.0 


65682. 1 
65590.3 
0.0 


97435.5 
63207.5 
0.0 


163117.6 
129421.5 
0.0 


M   BD.   FT.    TO  BE   HARVESTED  BY   FINAL   REMOVAL   OF  OVERWOOD 


0.0 
0.0 
0.0 


3839.6 
0.0 
0.0 


0.0 
0.0 
0.0 


14493.7 
2098.1 
0.0 


1079.5 
25871.4 
0.0 


19412.7 
27969.5 
0.0 
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PAGE  TYPE  2 


HUNDREDS  OF  CU.   FT.   FROM   FINAL  CUTS 


1  0.0  0.0  0.0  0.0  0.0  0.0 

2  0.0  0.0  0.0  321.*  0.0  321.4 

3  0.0  0.0  0.0  0.0  0.0  0.0 


ACRES  OF   NONCOMMERCIAL   THINNING   DURING  NEXT  PERIOD 


8.9 
515.6 
0.0 


29172, 
7176, 

0. 


7287.6 
14486.2 
0.0 


3719, 
191  . 
0. 


106.7 
0.0 
0.0 


40295.0 
22369.5 
0.0 


PAGE  TYPE  2 

POTENTIAL   WORK  LOAD  AND  YIELDS  FOR   NEXT  PERIOD 
BOGUS  NATIONAL  FOREST 


ACRES   OF  COMMERCIAL   THINNING  DURING  NEXT  PERIOD 


0.0 
0.0 
0.0 


0.0 
0.0 
9277.3 


0.0 
0.0 
27832.0 


0. 

0. 

18554. 


0.0 
0.0 
0.0 


0.0 
0.0 
55664. 1 


HUNDREDS  OF   CU.    FT.    REMOVED  BY  THINNING 


0.0 
0.0 
0.0 


0.0 
0.0 
29262.5 


0.0 
0.0 
149686. 1 


0.0 

0.0 
49750. 5 


0.0 
0.0 
0.0 


0.0 
0.0 
228699.  1 


M   BO.    FT.    REMOVED  BY  THINNING 


0.0 
0.0 
0.0 


0.0 
0.0 
0.0 


0.0 
0.0 

36938.4 


0.0 
0.0 
117284.2 


0.0 
0.0 
0.0 


0.0 
0.0 
154222.6 


5  0 


PAGfc   TYPE  2 


M  6 D .  FT.  TO  BE  HARVESTED  by  regeneration  cuts 


0.0 
0.0 
0.0 


0.0 
0.0 
0.0 


0.0 
0.0 
0.0 


0. 

0. 

393751 . 


0.0 
0.0 

40441.5 


0.0 
0.0 
434193.1 


HUNDREDS   OF  CU .   FT.   FROM  REGENERATION  CUTS 


0.0 
0.0 
0.0 


0.0 
0.0 

0.0 


0.0 
0.0 
0.0 


0.0 
0.0 
162320.2 


0.0 
0.0 
26393.6 


0.0 
0.0 
188713.8 


M  BD.   FT.   TO  BE  HARVESTED  BY   FINAL   REMOVAL  OF  OVERWOOO 


0.0 
0.0 
0.0 


0.0 
0.0 
0.0 


0.0 
0.0 
159386. 7 


PAGE   TYPE  2 


0.0 
0.0 
155258.9 


0.0 
0.0 
314645.6 


HUNDREDS  OF   CU .   FT.   FROM  FINAL  CUTS 


0.0 
0.0 
0.0 


0.0 
0.0 
0.0 


0.0 
0.0 
0.0 


0.0 

0.0 
32694.4 


0.0 
0.0 
0.0 


o.o 

0.0 
32694.4 


ACRES   OF   NONCOMMERCIAL   THINNING  DURING  NEXT  PERIOD 


0.0 
0.0 
27885.3 

27885.3 


0.0 
0.0 
27832.0 


0.0 
0.0 
46386.7 


0.0 
0.0 
18554.7 


0.0 
0.0 
0.0 


0.0 
0.0 
120658.8 
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POTENTIAL   WORK   LOAO  AND  YIELDS  FOR   NEXT  PERIOD 
BOGUS  NATIONAL  FOREST 


ACRES   OF   COMMERCIAL   THINNING  DURING  NEXT  PERIOD 


0.0 
0.0 
0.0 


0.0 
0.0 
0.0 


0.0 

10704.7 
0.0 


0.0 
0.0 
9277. 3 


0.0 
0.0 
0.0 


0.0 
10704.7 
9277.3 


HUNDREDS   OF   CU.    FT.   REMOVED  BY  THINNING 


0.0 
0.0 
0.0 


0.0 
0.0 
0.0 


0.0 
95366.* 
0.0 


0.0 
0.0 
0.0 


0.0 
0.0 
0.0 


o.o 

95366.4 
0.0 


BLOCK 


M   BO.   FT.   REMOVED  BY  THINNING 


0.0 
0.0 
0.0 


0.0 
0.0 
0.0 


0.0 
26976.6 
0.0 


0.0 
0.0 
74899. 2 


0.0 
0.0 
0.0 


0.0 
26976.6 
74899.2 
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M  BD.    FT.   TO   BE  HARVESTED   BY  REGENERATION  CUTS 


0.0 
0.0 
0.0 


0.0 
0.0 
0.0 


0.0 
0.0 
0.0 


53030.4 
17093.7 
0.0 


0.0 
0.0 
0.0 


53030.4 
17093.7 
0.0 


TYPE  11 


ACRES   OF   NONCOMMERCIAL   THINNING  DURING  NEXT  PERIOD 


0.0 
0.0 
0.0 


26.7 
3568.2 
0.0 


0.0 
0.0 

0.0 


0.0 
0.0 
0.0 


0.0 
0.0 
0.0 


26.7 
3568.2 
0.0 
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COMPARISON  OF   ACTUAL   GROWING  STOCK   WITH  GROWING   STOCK  GOAL 
BOGUS  NATIONAL  FOREST 

WORKING  GROUP  -   PONDEROSA  1 

THOUSANDS   OF   BOARD  FEET    IN   TREES  OF   COMMERCIAL  SIZE. 


AGE 

ACTUAL  GROWING 

GROWING  STOCK 

VOLUME 

STATUS  OF 

CLASS 

STOCK 

GOAL 

DIFFERENCE 

ACTUAL  VOLUME 

10 

0.0 

0.0 

0.0 

CORRECT 

20 

o.o 

0.0 

0.0 

CORRECT 

30 

0.0 

0.0 

0.0 

CORRECT 

40 

0.0 

0.0 

0.0 

CORRECT 

50 

0.0 

0.0 

0.0 

CORRECT 

60 

0.0 

19470.8 

-19470.8 

DEFICIT 

70 

219.1 

90747.8 

-90528.7 

DEFICIT 

80 

2  3320.2 

177367.8 

—  1 540  4  7.6 

DEFICIT 

90 

24184.8 

271217.4 

-247032.6 

DEFICIT 

100 

72120.8 

308331.7 

-236210.9 

DEFICIT 

no 

130731.9 

369272.1 

-238540.2 

DEFICIT 

120 

168771.6 

187971.4 

-19199.8 

DEFICIT 

130 

350634.5 

247209.1 

103425.4 

SURPLUS 

140 

145023.6 

0.0 

145023.6 

SURPLUS 

150 

290472.7 

0.0 

290472.7 

SURPLUS 

TOTAL 

1205479.1 

1671588.1 

-466109.0 

HUNDREDS   OF  MERCH. 

CUBIC   FEET    IN  TREES  6.0 

INCHES  D.B.H. 

AND  LARGER 

AGE 

ACTUAL  GROWING 

GROWING  STOCK 

VOLUME 

STATUS  OF 

CLASS 

STOCK 

GOAL 

DIFFERENCE 

ACTUAL  VOLUME 

10 

0.0 

0.0 

0.0 

CORRECT 

20 

0.0 

0.0 

0.0 

CORRECT 

30 

0.0 

3662.8 

-3662.8 

DEFICIT 

40 

209.  1 

113878.5 

-113669.5 

DEFICIT 

50 

134741.1 

275738.6 

-140997.5 

DEFICIT 

60 

111286.5 

401473.9 

-290187.4 

DEFICIT 

70 

207221.9 

563672.9 

-356451.0 

DEFICIT 

80 

328000.1 

626607.6 

-298607.4 

DEFICIT 

90 

249216.2 

774133.4 

-524917.2 

DEFICIT 

100 

305525.6 

766770.7 

-461245. 1 

DEFICIT 

no 

685867.1 

858922.5 

-173055.3 

DEFICIT 

120 

484648.6 

374654.1 

109994.5 

SURPLUS 

130 

1093866.7 

462076.5 

631790.2 

SURPLUS 

140 

362886.8 

0.0 

362886.8 

SURPLUS 

150 

881757.3 

0.0 

881757.? 

SURPLUS 

TOTAL 

4845227.1 

5221591.5 

-376364.4 
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COMPARISON  OF   ACTUAL   GROWING  STOCK   WITH  GROWING   STOCK  GOAL 
BOGUS  NATIONAL  FOREST 


WORKING  GROUP   -   PONOEROSA  2 


THOUSANDS 

OF   BOARD  FEET    IN  TREES  OF 

COMMERCIAL  SIZE. 

AGE 

ACTUAL  GROWING 

GROWING  STOCK 

VOLUME 

STATUS  OF 

CLASS 

STOCK 

GOAL 

DIFFERENCE 

ACTUAL  VOLUME 

10 

0.0 

0.0 

0.0 

CORRECT 

20 

0.0 

0.0 

0.0 

CORRECT 

L  UKK  b  L 1 

40 

0.0 

0.0 

0.0 

CORRECT 

50 

0.0 

0.0 

0.0 

CORRECT 

60 

0.0 

27794.2 

-27794.2 

DEFICIT 

70 

0.0 

108007.8 

-108007.8 

DEFICIT 

80 

0.0 

211736.2 

-211736.2 

DEFICIT 

90 

31733.0 

314599.1 

-282866.0 

DEFICIT 

100 

39451 .6 

336589.9 

-297138.2 

DEFICIT 

110 

105308.3 

407927.4 

-302619.1 

DEFICIT 

120 

308808.7 

245997.8 

62810.9 

SURPLUS 

130 

420828.4 

264554.7 

156273.7 

SURPLUS 

140 

256587.7 

150411.0 

1061 76. 8 

SURPLUS 

150 

203603.3 

0.0 

203603.3 

SURPLUS 

TOTAL 

1366321.2 

2067618.0 

-701296.8 

HUNDREDS   OF   MERCH.    CUBIC   FEET    IN   TREES   6.0   INCHES  U.B.H.   AND  LARGER 


AGE 

ACTUAL  GROWING 

GROWING  STOCK 

VOLUME 

STATUS  OF 

CLASS 

STOCK 

GOAL 

DIFFERENCE 

ACTUAL  VOLU 

10 

0.0 

0.0 

0.0 

CORRECT 

20 

0.0 

0.0 

0.0 

CORRECT 

30 

0.0 

5586.2 

-5586.2 

DEFICIT 

40 

0.0 

144902.5 

-144902.5 

DEFICIT 

50 

123739.9 

330913.0 

-207173.1 

OEFICIT 

60 

2816.4 

457168.1 

-454351.7 

DEFICIT 

70 

96511.2 

646813.8 

-550302.6 

DEFICIT 

80 

84675.3 

710038.9 

-625363.6 

DEFICIT 

90 

304873.8 

879182.0 

-574308. 1 

DEFICIT 

100 

229096.0 

793915.2 

-564819.2 

DEFICIT 

110 

477047.5 

901361.7 

-424314.2 

DEFICIT 

120 

811752.2 

478292  .8 

333459.4 

SURPLUS 

130 

1113655.1 

484954.9 

628700.2 

SURPLUS 

140 

521462.8 

248656.7 

272806. 1 

SURPLUS 

150 

512111.1 

0.0 

512111.1 

SURPLUS 

TOTAL 

4277741.5 

6081785.8 

-1804044.4 

54 


PAGE   TYPE  3 


COMPARISON  OF   ACTUAL   GROWING  STOCK   WITH  GROWING   STOCK  GOAL 
BOGUS  NATIONAL  FOREST 


WORKING  GROUP  -  LODGEPOLE 
THOUSANDS   OF   BOARD   FEET    IN   TREES   OF   COMMERCIAL  SIZE. 


AGE 

ACTUAL  GROWING 

GROWING  STOCK 

VOLUME 

STATUS  OF 

CLASS 

STOCK 

GOAL 

DIFFERENCE 

ACTUAL  VOLUME 

10 

0.0 

0.0 

0.0 

CORRECT 

20 

0.0 

0.0 

0.0 

CORRECT 

30 

0.0 

0.0 

0.0 

CORRECT 

40 

0.0 

0.0 

0.0 

CORRECT 

50 

105.0 

0.0 

105.0 

SURPLUS 

60 

0.0 

23858.2 

-23858.2 

DEFICIT 

70 

0.0 

43095.9 

-43095.9 

DEFICIT 

80 

0.0 

60423.7 

-60423. 7 

DEFICIT 

90 

0.0 

74457.7 

-74457.7 

DEFICIT 

100 

65706.0 

64T40.7 

965.3 

SURPLUS 

110 

345274.6 

79091.9 

266182.7 

SURPLUS 

120 

194711.9 

0.0 

194711.9 

SURPLUS 

130 

203.8 

0.0 

203.  8 

SURPLUS 

140 

47947.6 

0.0 

47947.6 

SURPLUS 

150 

0.0 

0.0 

0.0 

CORRECT 

TOTAL 

653949.0 

345668. 1 

308280.9 

HUNDREDS   OF  MERCH. 

CUBIC   FEET   IN   TREES  6.0 

INCHES  D.B.H. 

ANO  LARGER 

AGE 

ACTUAL  GROWING 

GROWING  STOCK 

VOLUME 

STATUS  OF 

CLASS 

STOCK 

GOAL 

DIFFERENCE 

ACTUAL  VOLUME 

10 

0.0 

0.0 

0.0 

CORRECT 

20 

0.0 

0.0 

0.0 

CORRECT 

30 

0.0 

1210.9 

-1210.9 

DEFICIT 

40 

0.0 

30259.4 

-30259.4 

DEFICIT 

50 

511.3 

66211.1 

-65699.8 

DEFICIT 

60 

82026.8 

103965.8 

-21939.1 

DEFICIT 

70 

291.1 

107232.3 

-106941.2 

DEFICIT 

80 

108525.3 

143638.5 

-35113.2 

DEFICIT 

90 

0.0 

173918.7 

-173918.7 

DEFICIT 

100 

152405.2 

145383.9 

7021.3 

SURPLUS 

110 

822671.8 

173694.5 

648977.3 

SURPLUS 

120 

458983.8 

0.0 

458983.8 

SURPLUS 

130 

459.0 

0.0 

459.0 

SURPLUS 

140 

107975.3 

0.0 

107975.3 

SURPLUS 

150 

0.0 

0.0 

0.0 

CORRECT 

TOTAL 

1733849.5 

945515.1 

788334.3 
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RECORD  OF 

MANAGEMENT  DECISIONS 

AND  CURRENT 

CONDITIONS 

BOGUS  NATIONAL  FOREST 

NUMBER  OF  BLOCKS  -  3 

NUMBER 

OF   COMPARTMENTS   -  0 

MINIMUM  AGE   FOR  GROWING   STOCK   -  30 

NUMBER 

OF  WORKING 

GROUPS  -  3 

MINIMUM  M   BD.   FT.    FOR   GROWING  STOCK  - 

1.5 

LENGTH 

OF  PLANNING 

PERIOD,  YEARS 

-  -  -   W  0  R 

KING  G 

PONDEROSA  1 

PONDEROSA  2 

LODGE  POLE 

LOWEST   SITE   CLASS  TO  BE  MANAGED 

50.0 

40.0 

50.0 

LENGTH   OF  CUTTING  CYCLE,  YEARS 

20.0 

20.0 

30.0 

LENGTH  OF   ADJUSTMENT   PERIOD,  YEARS 

30.0 

30.0 

30.0 

EXPECTED  DELAY   IN   REGENERATION,  YEARS 

0.0 

0.0 

10.0 

STOCKING   LEVEL  FOR   INITIAL  THINNING 

120.0 

110. 0 

110.0 

STOCKING   LEVEL,    SUBSEQUENT  THINNINGS 

100.0 

90.0 

100.0 

MINIMUM  COMMERCIAL   CUT,   M   BD.  FT. 

1.0 

1.0 

1.5 

MINIMUM  COMMERCIAL  CUT,   CU.  FT. 

2.4 

2.4 

2.4 

LENGTH  OF   PREDICTION  PERIOD,  YEARS 

10.0 

10.0 

10.0 

CUBIC   FEET   IN  HUNDREDS. 

5  5 
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COVER  TYPE 


ACRES 


AREAS   OF   TYPES    IN   WORKING  CIRCLE 
BOGJS  NATIONAL  FOREST 


COVER  TYPE 


COVER  TYPE 


ACRES 


1  PP1 

2  PP1 

3  PP1 

4  PP1 

5  PP1 

6  PP2 

7  PP2 

8  PP2 

9  PP2 

10  PP2 

11  LGP 

12  LGP 

13  LGP 
1*  LGP 


0-30 

31-50 

51-100 

101-40 

1*1+ 

0-30 

31-50 

51-100 

101-40 

141  + 

0-30 

31-50 

51-100 

101-40 

141  + 


26008.7 
47591.3 
90885.6 

113744.1 
32807.4 
65297.0 
37109.4 
83496.1 

120605.5 
27832.0 
3643.7 
3603.8 
10744.7 
30347.7 
0.0 


16 
17 
18 
19 

20 
21 
22 
23 
24 
25 


0.0 
0.0 

o.c 

0.0 
0.0 
0.0 
0.0 

0.0 
0.0 
0.0 


26  oe  fore  st-b 

27  oeforest-g 

28  re:reation 

29  BARREN 

30  BRUSHLAND 

31  RANGE-HERB 

32  PRIVATE 

33  RISHTS/WAY 
34 

35 


3D152.7 
80685.5 
6911.1 
581.6 
3390.2 
16397.6 
47799.4 
5345.7 
0.0 
0.0 


TOTAL  AREA 


***************     ACRES   BY   WORKING  GROUPS  *************** 


PONOEROSA  1 
311037.2 


PONDEROSA  2 
334340.2 


L  ODGEPOL  E 
48340.0 


DEFORESTED  ACRES  - 


PAGE   TYPE  6 


TOTAL   AREAS   OF   BLOCKS   AND  WORKING  CIRCLE 
BOGUS   NATIONAL  FOREST 


BLOCK 
NO. 


TOTAL 

ACRES 


*  PLANTABLE  ACRES  FOREST  SOIL  * 
BRUSHY  GRASSY  TOTAL 


*•*»•••«  FOREST  AND  REGENERATING  BY  WORKING  GROUPS  ********* 
PONDEROSA   1      PONDEROSA  2  LODGEPOLE 


11477.9  4066.0  15544.0 


0.0  10993.5 


208389.3 


84.5  11206.9  11291.4 


0.0  18778.4 


18590.3  65412.5  84002. 


0.0  334340.2  18568.0 


30152.7  R0685.5  110838.2 


311037.2  J34340.2  48340.0 


5  6 
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DISTRIBUTION  OF   AREA   BY   SITE    INDEX  CLASS 
BOGUS  NATIONAL  FOREST 


BLOCK 


SITE  INDEX 


DEFORESTED  ACRES 


PONDERDSA  1 


PONDEROSA  2 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 


0.0 
0.0 
0.0 
7407.5 
4292.6 
3843.8 
0.0 
0.0 
0.0 
0.0 

o.o 

0.0 

o.o 

0.0 


0.0 

o.o 

0.0 
0.0 
58842.8 
69782.9 
29523.6 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 


0.0 
0.0 
0.0 
0.0 

o.o 

0.0 
0.0 
0.0 
0.0 

o.o 

0.0 
0.0 
0.0 
0.0 


0.0 
0.0 
0.0 
0.0 
40.0 
3674. 8 
7278.7 
0.0 
0.0 

o.o 

0.0 
0.0 
0.0 
0.0 


10 
20 
30 
40 
50 
60 
70 
60 
90 
100 
110 
120 
130 
140 


0, 
0. 
0. 
0, 

7278. 

222. 
3790. 


0 
0 
0 
0 
7 
2 
5 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 


0.0 
0.0 
0.0 
0.0 
79385.5 
55181.3 
18321.0 
0.0 
0.0 
0.0 
0.0 
0.0 

o.o 

0.0 


o.o 

0.0 
0.0 
0.0 
0.0 
0.0 

o.o 

0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 


0.0 
0.0 
0.0 
0.0 
3568.2 
7229.8 
7980.5 
0.0 
0.0 

o.o 
o.o 
o.o 
o.o 

0.0 
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SITE  INDEX 


DEFORESTED  ACRES 


PONDEROSA  1 


PONDEROSA  2 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 


0.0 
0.0 
0.0 

o.o 

37198.3 
28072.0 
18732.5 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 


0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 


0.0 
0.0 
9277.3 
83713.9 
74218.8 
102108.6 
65021.4 
0.0 
0.0 
0.0 
0.0 

o.o 
o.o 

0.0 


0.0 
0.0 
0.0 

o.o 
o.o 
o.o 

18568.0 
0.0 

o.o 
o.o 
o.o 
o.o 

0.0 
0.0 
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GROWING  STOCK  GOALS   FOR  WORKING  CIRCLE 
WORKING  GROUP   -   PONDEROSA  1 
BOGUS  NATIONAL  FOREST 


SITE  CLASS 


ROTAT ION 
AGE 


CU.   FT.  TO 
BD.   FT.  LIMIT 


CU.  FT.  TO 
ROTATION  AGE 


M  BO.  FT.  ABOVE 
BO.   FT.  LIMIT 


50. 
60. 
70. 
TOTALS 


148724.4 
128756.2 
51220.5 
335627. I 


110. 
110. 
110. 


311464. 
275841. 
113520. 
700825. 


1957760. 
2194825. 
1069007. 
5221592. 


569556. 
722268. 
379764. 
1671588. 


CUBIC   FEET    IN  HUNDREDS.    TOTAL  AREA   INCLUDES   ANY  LOW   SITE   ACRES    INCORRECTLY  CLASSED   AS   OPERABLE  TYPES. 


PAGE  TYPE  12 

CONVERSION  OF   AREAS   TO   STANDARD  ACRES 
WORKING  GROUP  -   PONDEROSA  1 
BOGUS   NATIONAL  FOREST 


SITE 

INDEX 

CLASS 


TOTAL  YIELD 
PER  ACRE 
M  BD.  FT. 


ACRES 
IN  SITE 
CLASS 


REDUCTION 
FACTOR 


AREA  IN 
STANDARD 
ACRES 


EQUIVALENT  OF 
STANDARD  ACRE 
IN  SITE  ACRES 


50. 
60. 
70. 


15.2 
23.3 
28.6 


148724.4 
128756.2 
51220.5 


.65251 
1.00000 
1.22523 


97044. 1 
128756.2 
62756.6 


1.53254 
1.00000 
.81618 


SITR 

INDEX 

CLASS 


TOTAL  YIELD 
PER  ACRE 
CU.  FT. 


ACRES 
IN  SITE 
CLASS 


REDUCTION 
FACTOR 


AREA  IN 
STANDARD 
ACRES 


EQUIVALENT  OF 
STANDARD  ACRE 
IN   SITE  ACRES 


50. 
60. 
70. 


4111.0 
5568.0 
6956.0 


148724.4 
128756.2 
51220.5 


.73833 
1.00000 
1.24928 


109807.1 
128756.2 
6398B. 8 


1.35441 

1.00000 
.80046 
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YIELDS   PER   ACRE   OF   MANAGED,    EVEN-AGEO  STANDS   BASED  ON  PREDETERMINED   STANDARDS  FOR 
SITE    INDEX      70..      20. -YEAR   CUTTING  CYCLE 
THINNING  LEVELS*   INITIAL   -     110.,    SUBSEQUENT  -  90. 

WORKING  GROUP  -   PONOEROSA  2 


ENTIRE   STAND  BEFORE   AND  AFTER  THINNING 


PERIODIC  CUT   AND  MORTALITY 


STAND 
AGE 
(YEARS) 

TREES 
NO. 

BASAL 
AREA 
SO.  FT. 

AVERAGE 
D.B.H. 
IN. 

AVERAGE 
HE IGHT 
FT. 

TOTAL 
VOLUME 
CU.  FT. 

MERCHANT- 
ABLE VOLUME 
CU.  FT. 

SAWTIMBER 

VOLUME 
M   BD.  FT. 

TREES 
NO. 

BASAL 
AREA 
SO.  FT. 

TOTAL 
VOLUME 
CU.  FT. 

MERCHANT- 
ABLE VOLUME 
CU.  FT. 

30. 

30. 

950 
417 

119 

74 

4.8 
5.7 

25 
26 

1188 

799 

312. 
312. 

0.000 
0.000 

533 

45 

389 

0. 

40. 

413 

104 

6.8 

35 

1502 

1020. 

0.000 

50. 
50. 

406 
215 

131 
85 

7.7 
8.5 

44 

45 

2370 
1568 

1900. 
1364. 

1.  160 
1.  160 

191 

46 

802 

536. 

60. 

214 

105 

9.5 

51 

2221 

2034. 

3.900 

70. 
70. 

213 
132 

126 

90 

10.4 
11.2 

5B 
59 

3043 
2240 

2829. 
2098. 

8.  150 
7.050 

81 

36 

803 

731. 

80. 

132 

107 

12.2 

65 

2969 

2796. 

10.820 

90. 
90. 

132 
85 

124 
90 

13.1 
13.9 

69 

70 

3722 
2737 

3519. 
2596. 

14.800 
11.380 

47 

34 

985 

923. 

100. 

85 

103 

14.9 

74 

3355 

3193. 

14.980 

110. 
110. 

85 
27 

116 

45 

15.8 
17.5 

78 
80 

3975 
1593 

3794. 
1527. 

18.780 
7.960 

58 

71 

2382 

2267. 

120. 

27 

53 

19.0 

83 

1960 

1884. 

10.460 

130. 
130. 

27 
9 

61 

24 

20.4 
22.0 

86 
87 

2341 

928 

2256. 
896. 

13.180 
5.440 

18 

37 

1413 

1360. 

140. 

9 

28 

24.0 

90 

1138 

1102. 

7.080 

SAWTIMBER 

VOLUME 
M  8D.  FT. 


TOTAL  YIELDS 


MINIMUM  CUTS  FOR   INCLUSION   IN  TOTAL   YIELDS—     240.   CUBIC   FEET   ANO     1000.    BOARD  FEET 
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PAGE  TYPE  9 


GROWING  STOCK  OF   MANAGED t    REGULATEO,    EVEN-AGEO  STANDS 
SITE   INDEX     70.,      20. -YEAR  CUTTING  CYCLE 
DENSITY  LEVEL-   110.   AND  90. 

WORKING  GROUP   -   PONDEROSA  2 


VOLUMES   PRESENT   PER   ACRE  AT   END  OF   EACH  YEAR 


MERCHANTABLE   CUBIC  FEET 


YEAR 


IDE 

0 

1 

2 

3 

4 

5 

6 

7 

! 

1 

9 

0 

0.0 

0. 

0 

0 

0 

0.0 

0.0 

0. 

0 

0 

0 

0 

0 

0. 

0 

0.0 

1 

0.0 

0. 

0 

0 

0 

0.0 

0.0 

0 

0 

0 

0 

0 

0 

0. 

0 

0.0 

2 

0.0 

0. 

0 

0 

0 

0.0 

0.0 

0 

0 

0 

0 

0 

0 

0 

0 

0.0 

3 

312.0 

382. 

8 

453 

6 

524.4 

595.2 

666 

0 

736 

8 

807 

6 

878, 

4 

949.2 

1020.0 

1108. 

0 

1196 

0 

1284.0 

1372.0 

1460 

0 

1548 

0 

1636 

0 

1724 

0 

1812.0 

5 

1364.0 

1431. 

0 

1498 

0 

1565.0 

1632.0 

1699 

0 

1766 

0 

1833 

0 

1900 

0 

1967.0 

6 

2034.0 

2113. 

5 

2193 

0 

2272 . 5 

2352.0 

2431 

5 

2511 

0 

2590 

5 

2670 

0 

2749.5 

7 

2096.0 

2167. 

6 

2237 

.6 

2307.4 

2377.2 

2447 

0 

2516 

8 

2586 

6 

2656 

4 

2726.2 

8 

2796. 0 

2868  . 

3 

2940 

6 

3012.9 

3085 . 2 

3157 

5 

3229 

8 

3302 

1 

3374 

4 

3446.7 

9 

2596.0 

2655. 

7 

2715 

.4 

2775.1 

2834. 8 

2894 

5 

2954 

2 

3013 

9 

3073 

6 

3133.3 

10 

3193.0 

3253. 

1 

3313 

2 

3373. 3 

3433.4 

3493 

5 

3553 

6 

3613 

7 

3673 

8 

3733.9 

1 1 

1527.0 

1562. 

7 

1598 

.4 

1634.1 

1669.8 

1705 

5 

1741 

2 

1776 

9 

1812 

6 

1 848 . 3 

12 

1 684. 0 

1921. 

2 

1958 

,4 

1995.6 

2032  •  8 

2070 

0 

2107 

2 

2144 

4 

2181 

6 

2218.8 

13 

896.0 

916. 

6 

937 

2 

957.8 

978.  4 

999 

0 

1019 

6 

1040 

2 

1060 

8 

1081.4 

i  4 

1102.0 

THOUSANDS  OF 

BOARD  FEET 

0 

0.000 

0 

.000 

0 

.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0 

000 

0.000 

1 

0.000 

0 

.ooo 

0 

.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0 

000 

0.000 

2 

o.ooo 

0 

.000 

0 

.000 

0.000 

0.000 

0.000 

0.000 

0.  000 

0 

000 

0.000 

3 

0.000 

0 

.000 

0 

.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0 

000 

0.000 

4 

0.000 

.116 

.232 

.348 

.464 

.580 

.696 

.812 

928 

1.044 

5 

1.160 

1 

.434 

1 

.708 

1  .982 

2.256 

2.530 

2.804 

3.078 

3 

352 

3.626 

6 

3.900 

4 

.325 

4 

.750 

5.175 

5.600 

6.025 

6.450 

6.  875 

7 

300 

7.725 

7 

7.050 

7 

.427 

7 

.804 

8.181 

8.558 

8.935 

9.312 

9.689 

10 

066 

10.443 

8 

10.820 

11 

.218 

11 

.616 

12.014 

12.412 

12.810 

13.208 

13.606 

14 

004 

14.402 

9 

11.380 

11 

.740 

12 

.100 

12.460 

12.820 

13.180 

13.540 

13.900 

14 

260 

14.620 

10 

14.980 

15 

.360 

15 

.740 

16.120 

16.500 

16.880 

17.260 

17.640 

18 

020 

18 .400 

11 

7.960 

8 

.210 

8 

.460 

8.710 

8.960 

9.210 

9.460 

9.710 

9 

960 

10.210 

12 

10.460 

10 

.732 

11 

.004 

11.276 

11.548 

11.820 

12.092 

12.364 

12 

636 

12.908 

13 

5.440 

5 

.604 

5 

.768 

5.932 

6.096 

6.260 

6.424 

6.588 

6 

752 

6.916 

14  7.080 
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FOR   SITE   INDEX  CLASS- 


PAGE   TYPE  10 

DISTRIBUTION  OF   AREA   AND  GROWING  STOCK  GOALS 
D.,   ROTATION-   110..    AND       82768.3  ACRES  OF   THIS  SITE   CLASS  AND  GROUP 
WORKING  GROUP   -  PONDEROSA  2 


ACRES  IN 
CLASS 


HUNDREDS  OF 
CU.  FT. 


1-  10 
11-  20 
21-  30 
31-  40 
41-  50 
51-  60 
61-  70 
71-  80 
81-  90 
91-100 
101-110 
111-120 
121-130 
131-140 
141-150 


7524.4 
7524.4 
7524.4 
7524.4 
7524.4 
7524.4 
7524.4 
7524.4 
7524.4 
7524.4 
7524.4 
0.0 
0.0 
0.0 
0.0 


0.0 
0.0 
2347.6 
52776.1 
109133.8 
130360. 1 
180446.3 
186748.0 
233357.8 
220039.6 
248068.0 
129671.7 
146921.3 
75943.7 
0.0 


0.0 
0.0 
0.0 
0.0 
0.0 
18988.6 
46105.7 
68648. 8 
95311.5 
100525.9 
120300.0 
70240.2 
84137.8 
47719.7 
0.0 


PAGE   TYPE  11 

GROWING  STOCK  GOALS   FOR  WORKING  CIRCLE 
WORKING  GROUP  -  PONDEROSA  2 
BOGUS  NATIONAL  FOREST 


SITE  CLASS 


ROTAT ION 
AGE 


CU.   FT.  TO 
BD.   FT.  LIMIT 


CU.  FT.  TO 
ROTATION  AGE 


M  BD.  FT.  ABOVE 
BO.   FT.  LIMIT 


40. 
50. 
60. 
70. 
TOTALS 


83713.9 
109459.9 
128703.7 

82768.3 
413923.3 


90. 
110. 
110. 
110. 


202588. 
221693. 
263048. 
175025. 
862354. 


698039. 
1478694. 
2189238. 
1715814. 
6081786. 


162433. 
481059. 
772147. 
651978. 
2067618. 


CUBIC   FEET    IN  HUNDREDS.   TOTAL   AREA   INCLUOES  ANY  LOW   SITE   ACRES   INCORRECTLY  CLASSED  AS   OPERABLE  TYPES. 


6  1 


page  Type  12 

conversion  of  ar e as  to  standard  acres 
working  group  -  ponderosa  2 
bogus  national  forest 


SITE 

INDEX 

CLASS 


TOTAL  YIELD 
PER  ACRE 
1   BD.  FT. 


ACRES 
IN  SITE 
CLASS 


REDUCTION! 
FACTOR 


AREA  IN 
STANDARD 
ACRES 


EQUIVALENT  OF 
STANDARD  ACRE 
IN   SITE  ACRES 


40. 
50. 
60. 
70. 


8.7 
17.8 
23.0 
30.2 


83713.9 
109i»59.9 
128703.7 

82768.3 


.48930 
1.00000 
1.29673 
1.69820 


40961.4 
109459.9 
166894.  5 
140557.1 


2.04373 
1.30000 
.77117 
.58886 


SITE 

INDEX 

CLASS 


TOTAL  YIELD 
PER  ACRE 
CU.  FT. 


ACRES 
IN  SITE 
CLASS 


REDUCTION 
FACTOR 


AREA  IN 
STANDARD 
ACRES 


EQUIVALENT  OF 
STANDARD  ACRE 
IN   SITE  ACRES 


40. 
50. 
60. 
70. 


2373.0 
4141.0 
5550.0 
6919.0 


83713.9 
109459.9 
128703.7 

82768.3 


.57305 
1.00000 
1.34026 
1.67085 


47972.3 
109459. 9 
172495.9 
138293.7 


1.74505 
1.00030 
.74613 
.59850 


PAGE   TYPE  8 

YIELDS   PER  ACRE   OF   MANAGED,    EVEN-AGED  STANDS   BASED  ON  PREDETERMINED  STANDARDS 
SITE    INDEX      70..      30. -YEAR   CUTTING  CYCLE 
THINNING  LEVELS*    INITIAL   -     110.,    SUBSEQUENT   -  100. 

WORKING  GROUP  -  LODGEPOL E 


ENTIRE   STAND   BEFORE   AND  AFTER  THINNING 


PERIODIC  CUT   AND  MORTALITY 


STAND 
AGE 
(YEARS) 


BASAL 
TREES  AREA 
NO.      SQ.  FT. 


AVERAGE 
D. B.H. 
IN. 


AVERAGE 
HEIGHT 
FT. 


TOTAL 
VOLUME 
CU.  FT. 


MERCHANT- 
ABLE VOLUME 
CU.  FT. 


SAWT  IMBER 

VOLUME 
M   BD.  FT. 


BASAL 
TREES  AREA 
NO.      SQ.  FT. 


TOTAL 
VOLUME 
CU.  FT. 


MERCHANT- 
ABLE VOLUME 
CU.  FT. 


SAWT I MBER 

VOLUME 
M   80.  FT. 


30. 
30. 


1000 
432 


126 
71 


4.8 
5.5 


28 
29 


1674 
1018 


341  . 
341. 


0.000 
0.000 


40. 
50. 


60. 
60. 


430 
429 


428 
227 


99 
128 


153 
96 


6.5 
7.4 
8.1 


37 
41 


49 
50 


1812 
2647 


3728 
2389 


1186. 
2158. 


3264. 
2175. 


0.000 
0.  000 


13.510 
8.900 


70. 
80. 


225 
224 


115 
137 


9.7 
10.6 


56 
61 


3228 
4184 


2993. 
3934. 


12.570 
16.750 


90. 
90. 


224 
125 


159 
100 


11.4 
12.1 


65 
66 


5112 
3220 


4826. 
3049. 


21.060 
13.580 


100. 
110. 
120. 


125 
125 
125 


117 
134 
151 


13.1 
14.0 
14.9 


69 
72 
75 


3922 
4631 
5397 


3728. 
4416. 
5160. 


17. 040 
20.630 
24.590 
TOTAL  YIELDS 


MINIMUM  CUTS  FOR   INCLUSION   IN  TOTAL   YIELDS —  240. 


CUBIC   FEET   AND      1500.    BOARD  FEET 


PAGE   TYPE  9 


GROWING  STOCK  OF   MANAGED,   REGULATED,   EVEN-AGED  STANDS 
SITE    INDEX     70.,      30. -YEAR  CUTTING  CYCLE 
DENSITY  LEVEL-  110.  AND  100. 

WORKING  GROUP   -  LODGEPOLE 

VOLUMES   PRESENT   PER   ACRE  AT   END  OF   EACH  YEAR 

MERCHANTABLE  CUBIC  FEET 
YEAR 


DECADE 

0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0 

0 

1 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0 

0 

2 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0 

0 

3 

341.0 

425.5 

510.0 

594.5 

679.0 

763.5 

848.0 

932.5 

1017.0 

1101 

5 

4 

1186.0 

1283.2 

1380.4 

1477.6 

1574.8 

1672.0 

1769.2 

1866.4 

1963.6 

2060 

8 

5 

2158.0 

2268.6 

2379.2 

2489.8 

2600.4 

2711.0 

2821.6 

2932.2 

3042.8 

3153 

4 

6 

2175.0 

2256.8 

2338.6 

2420.4 

2502.2 

2584.0 

2665.8 

2747.6 

2829.4 

2911 

2 

7 

2993.0 

3087.1 

3181.2 

3275.3 

3369.4 

3463.5 

3557.6 

3651.7 

3745.8 

3839 

9 

B 

3934.0 

4023.2 

4112.4 

4201.6 

4290.8 

4380.0 

4469.2 

4558.4 

4647.6 

4736 

8 

9 

3049.0 

3116.9 

3184.8 

3252.7 

3320.6 

3388. 5 

3456.4 

3524.3 

3592.2 

3660 

1 

10 

3728.0 

3796.8 

3865.6 

3934.4 

4003.2 

4072.0 

4140.8 

4209.6 

4278.4 

4347 

2 

11 

4416.0 

4490.4 

4564.8 

4639.2 

4713.6 

4788.0 

4862.4 

4936.8 

5011.2 

5085 

6 

12 

5160.0 

THOUSANDS  OF   BOARD  FEET 


0 

0. 

000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

1 

0. 

000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

2 

0. 

000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

3 

0. 

000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

4 

0. 

000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

5 

0. 

000 

1.351 

2.702 

4.053 

5.404 

6.755 

8.106 

9.457 

10.808 

12.159 

6 

8. 

900 

9.267 

9.634 

10.001 

10.368 

10.735 

11.102 

11.469 

11.836 

12.203 

7 

12. 

570 

12.988 

13.406 

13.824 

14.242 

14.660 

15.078 

15.496 

15.914 

16.332 

8 

16. 

750 

17.181 

17.612 

18.043 

18.474 

18.905 

19.336 

19.767 

20. 198 

20.629 

9 

13. 

580 

13.926 

14.272 

14.618 

14.964 

15.310 

15.656 

16.002 

16.348 

16.694 

10 

17. 

040 

17.399 

17.758 

18.117 

18.476 

18.835 

19.194 

19.553 

19.912 

20.271 

11 

20. 

630 

21.026 

21.422 

21.818 

22.214 

22.610 

23.006 

23.402 

23.798 

24. 194 

12 

24. 

590 

63 


PAGE   TYPE  10 


DISTRIBUTION 

OF   AREA   AND   GROWING  STOCK 

GOALS 

i Nncy    ri  ac c  _ 

7fl          BflTATl  nw- 

l  ?n       Awn       l*;??7   u  AfRF^ 

SITE 

ACRES  IN 

HUNDREDS  OF 

0 

2935.6 

1-  10 

2935.6 

0.0 

o.o 

11-  20 

2935.6 

0.0 

0.0 

21-  30 

2935.6 

1001. 0 

0.0 

31-  40 

2935.6 

23653.7 

0.0 

41-  50 

2935.6 

50510.2 

0.0 

51-  60 

2935.6 

78011.0 

20063.2 

61-  70 

2935.6 

77057.0 

32052.5 

71-  80 

2935.6 

103056.2 

43649.7 

81-  90 

2935.6 

124672.7 

53934.6 

91-100 

2935.6 

100470.0 

45452. 1 

2935.6 

111-120 

0.0 

0.0 

0.0 

121-130 

0.0 

0.0 

0.0 

131-140 

0.0 

0.0 

0.0 

141-150 

0.0 

0.0 

0.0 

TOTALS 

35227.4 

678980.0 

250971.3 

AGE  CLASS   ZERO  REPRESENTS  CLEARCUT   ACRES   NOT  VET  REFORESTED   BECAUSE  OF   DELAY  OF      10.  YEARS 
EXPECTED  AFTER   SCHEDULED  REGENERATION  CUTTING. 


PAGE   TYPE  11 


GROWING   STOCK   GOALS   FOR  WORKING  CIRCLE 
WORKING  GROUP   -  LODGEPOLE 
BOGUS  NATIONAL  FOREST 


SITE  CLASS 


ROTATION 
AGE 


CU.    FT.  TO 
BD.   FT.  LIMIT 


CU.  FT.  TO 
ROTATION  AGE 


M  8D.  FT.  ABOVE 
BD.    FT.  LIMIT 


50. 
60. 
70. 
TOTALS 


6640.6 
12655.7 
35227.4 
55005.2 


120. 
120. 
120. 


12502. 
21157. 
81825. 
115483. 


74084. 
192451. 
678980. 
945515. 


24933. 

69764. 
250971. 
345668. 


CUBIC   FEET   IN  HUNDREDS.    TOTAL   AREA    INCLUDES   ANY   LOW   SITE   ACRES   INCORRECTLY  CLASSED  AS   OPERABLE  TYPES. 
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PAGE   TYPE  12 


CONVERSION   OF    AREAS   TO   STANDARD  ACRES 
WORKING  GROUP  -  L0DGEP3LE 
BOGUS   NATIONAL  FOREST 


SITE 
I  NDEX 
CLASS 


TOTAL  YIELD 
PER  ACRE 
M   BD.  FT. 


ACRES 
IN  SITE 
CLASS 


REDUCTION 
FACTOR 


AREA  IN 
STANDARD 
ACRES 


EQUIVALENT  OF 
STANDARD  ACRE 
IN   SITE  ACRES 


50. 
60. 
70. 


17.7 
24.1 
36.7 


66*0.6 
12655.7 
35227.4 


.736B2 
1 .00000 
1.52262 


4892.9 
12655.7 
53638.0 


1.35718 

1.00000 
.65676 


SITE 

INDEX 

CLASS 


TOTAL  YIELD 
PER  ACRE 
CU.  FT. 


ACRES 
IN  SITE 
CLASS 


REDUCTION 
FACTOR 


AREA  IN 
STANDARD 
ACRES 


EQUIVALENT  OF 
STANDARD  ACRE 
IN   SITE  ACRES 


50. 
60. 
70. 


4386.0 
6033.0 
8026.0 


6640.6 
12655.7 
35227.4 


.72700 
1.00000 
1.33035 


4827. 7 
12655.7 
46B64. 7 


1.37551 
1.00000 
.75168 


PAGE   TYPE  13 


VOLUMES   OF   BLOCKS   ANO  WORKING  CIRCLE 
BOGUS  NATIONAL  FOREST 


BLOCK   NO.  1 


BLOCK  NO.  2 


BLOCK   NO.  3 


BLOCK   NO.  4 


BLOCK  NO.  6 


PONDEROSA  1 
TOTAL   CU.  FT. 
HERCH.   CU.  FT. 
M  BD.  FT. 


6364169. 1 
4845227. 1 
1205479.1 


340931B.4 
2592262.9 
715735.4 


2954850.7 
2252964.3 
489743.7 


0.0 
0.0 
0.0 


PONDEROSA  2 
TOTAL  CU.  FT. 
HERCH.   CU.  FT. 
M  BD.  FT. 


5554914.0 
4277741.5 
1366321.2 


0.0 
0.0 
0.0 


0.0 
0.0 
0.0 


5554914.0 
4277741.5 
1366321.2 


LODGEPOLE 
TOTAL  CU.  FT. 
HERCH.   CU.  FT. 
M  BD.  FT. 


1966950.4 
1733849.5 
653949.0 


334040.0 
306054.2 
129110.3 


767312.2 
619582. 1 
184678.6 


B65598.1 
B0B213.2 
340160.1 


TOTAL  VOLUME 
OF  BLOCK 

TOTAL   CU.  FT. 

HERCH.   CU.  FT. 

M  BD.  FT. 

CUBIC 


13886033.4 
10856818.1 
3225749.3 


3743358.4 
2898317.1 
844845.7 


3722162.9 
2872546.4 
674422.3 


6420512.1 
5085954.6 
1706481.3 


FEET   IN  HUNDREDS,    BOARO  FEET   IN  THOUSANDS 
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PAGE   TYPE  14 


TOTAL   AREAS   AND  VOLUMES   OF   BLOCKS   AND  WORKING  CIRCLE 
BOGUS   NATIONAL  FOREST 


BLOCK 
NO. 


TYPE 

TOTAL 

TOTAL 

MERCH. 

M 

ACRES 

NUMBER 

NO. 

ACRES 

CU.  FT. 

CU.  FT. 

8D.  FT. 

LOW  SITE 

OF  RECORDS 

1 

7287.6 

0.0 

0.0 

0.0 

0.0 

5. 

2 

33114.0 

301634.2 

38789.0 

0.0 

0.0 

15. 

3 

29385.8 

611637.3 

351176.3 

7119.8 

0.0 

16. 

4 

70027.4 

1958300.3 

1708379. 5 

534544. 8 

0.0 

31. 

5 

18334.5 

537746.6 

493918.0 

174070. 8 

0.0 

8. 

6 

0.0 

0.0 

0.0 

0.0 

0.0 

0. 

7 

0.0 

0.0 

o.o 

0.0 

0.0 

0. 

8 

0.0 

0.0 

0.0 

0.0 

0.0 

0. 

9 

0.0 

0.0 

0.0 

0.0 

0.0 

0. 

10 

0.0 

0.0 

0.0 

0.0 

0.0 

0. 

11 

3630. 4 

0.0 

0.0 

0.0 

0.0 

1. 

12 

35.6 

925.3 

511.3 

105.0 

0.0 

2. 

13 

0.0 

0.0 

0.0 

0.0 

0.0 

0. 

14 

7327.5 

333114.7 

305542.9 

129005.2 

0.0 

5  . 

15 

0.0 

0.0 

0.0 

0.0 

0.0 

0. 

16 

0.0 

0.0 

0.0 

0.0 

0.0 

0. 

17 

0.0 

0.0 

0.0 

0.0 

0.0 

0. 

18 

0.0 

0.0 

0.0 

0.0 

0.0 

0. 

19 

0.0 

0.0 

0.0 

0.0 

0.0 

0. 

20 

0.0 

0.0 

0.0 

0.0 

0.0 

0. 

21 

0.0 

0.0 

0.0 

0.0 

0.0 

0. 

22 

0.0 

0.0 

0.0 

0.0 

0.0 

0. 

23 

0.0 

0.0 

0.0 

o.o 

0.0 

0. 

24 

0.0 

0.0 

0.0 

0.0 

0.0 

0. 

25 

0.0 

0.0 

0.0 

0.0 

0.0 

0. 

26 

11477.9 

0.0 

0.0 

0.0 

0.0 

7. 

27 

4066.0 

0.0 

0.0 

0.0 

0.0 

5. 

PAGE  TYPE    14,  CONT. 


BLOCK 
NO. 


TYPE 
NO. 


TOTAL 

ACRES 


TOTAL 
CU.  FT. 


MERCH. 
CU.  FT. 


ACRES 
LOW  SITE 


NUMBER 
OF  RECORDS 


1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 


18721.1 
14477.3 
61499. 8 
43716.7 
14472.9 

0.0 

0 

0 

0 

0 

0 

3568 
10744.7 
4465.5 
0 
0 
0 
0 
0 


.0 
.0 
.0 
.0 
.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
84.5 
11206.9 


0.0 
248077.6 
1174498.1 
1092254.9 
440020.1 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
40874.4 
433035.0 
293402.8 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 


0.0 
96161.2 
850074. 1 
918889.8 
387839.3 

0.0 

0.0 

0. 

0. 

0. 

0. 

0. 

343248. 

276333.8 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 


0.0 
0.0 
112725.0 
260616.  8 
116401.9 
0.  0 
0.0 
0.0 
0.0 
CO 
0.0 
0.0 
65706.0 
118972.7 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 


0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 


0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 


29. 
21. 

6. 

0. 

0. 

0. 

0. 

0. 

0. 

1. 

4. 
3. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
2. 
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LOCK 

TYPE 

TOTAL 

TOTAL 

NO. 

NO. 

ACRES 

CU.  FT. 

3 

1 

0.0 

0.0 

3 

2 

0.0 

0.0 

3 

3 

0.0 

0.0 

3 

0.0 

0.0 

3 

5 

0.0 

0.0 

3 

6 

65297.0 

0.0 

3 

7 

37109.4 

619749.3 

3 

8 

83496.1 

997668.7 

3 

9 

120605.5 

3262467.2 

3 

10 

27832.0 

675028.8 

3 

11 

13.3 

0.0 

3 

12 

0.0 

0.0 

3 

13 

0.0 

0.0 

3 

14 

18554.7 

865598.1 

3 

15 

0.0 

0.0 

3 

16 

0.0 

0.0 

3 

17 

0.0 

0.0 

3 

18 

0.0 

0.0 

3 

19 

0.0 

0.0 

3 

20 

0.0 

0.0 

3 

21 

0.0 

0.0 

3 

22 

0.0 

0.0 

3 

23 

0.0 

0.0 

3 

24 

0.0 

0.0 

3 

25 

0.0 

0.0 

3 

26 

18590.3 

0.0 

3 

27 

65412.5 

0.0 

TYPE   14,  CONT. 

MERCH.  M  ACRES  NUMBER 


CU.  FT. 

80.  FT. 

LOW  SITE 

OF  REC 

0.0 

0.0 

0.0 

0. 

0.0 

0.0 

0.0 

0. 

0.0 

0.0 

0.0 

0. 

0.0 

0.0 

0.0 

0. 

0.0 

0.0 

0.0 

0. 

0.0 

0.0 

0.0 

12. 

123739.9 

0.0 

0.0 

4. 

717972.8 

71184.7 

0.0 

9. 

2923917.6 

1091533.2 

9277.3 

13. 

512111.1 

203603.3 

0.0 

3. 

0.0 

0.0 

0.0 

1. 

0.0 

0.0 

0.0 

0. 

0.0 

CO 

0.0 

0. 

808213.2 

340160.1 

0.0 

2. 

0.0 

0.0 

0.0 

0. 

0.0 

0.0 

0.0 

0. 

0.0 

0.0 

0.0 

0. 

0.0 

0.0 

0.0 

0. 

0.0 

0.0 

0.0 

0. 

0.0 

0.0 

0.0 

0. 

0.0 

0.0 

0.0 

0. 

0.0 

0.0 

0.0 

0. 

0.0 

0.0 

0.0 

0. 

0.0 

0.0 

0.0 

0. 

0.0 

0.0 

0.0 

0. 

0.0 

0.0 

0.0 

4. 

0.0 

0.0 

0.0 

13. 

TOTALS 


804555.5  13886033.4  10856818.1  3225749.3 

CUBIC   FEET   IN  HUNDREDS ,    BOARD   FEET    IN  THOUSANDS 


9277.3 
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APPENDIX  3 


Alternative  Outputs 


Reproduced  below  are  examples  of  the  type 
5  pages  produced  by  optional  subroutine  MAPS. 
MAPS  produces  two  type  5  pages  for  each  com- 
partment if  maps  are  desired,  and  a  single  type 
5  page  per  compartment  if  map  output  is 
suppressed. 

Subroutine  AREA1  prints  a  type  5  page  with 
two  compartments  per  page.  An  example  is  not 


given;  the  format  for  each  compartment  is  the 
same  as  the  top  half  of  the  page  without  maps 
produced  by  MAPS. 

Type  6  pages  produced  by  MAPS  and  AREA1 
are  not  reproduced  because  they  do  not  differ 
in  format  from  the  page  type  6  of  AREA2  in 
appendix  2. 
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5   5  5 

5 
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5 

3 

3  4 

4 

5 

5 

5 

5 

3 

5 

5 

5   5  5 

5 

5 

5 

5 

3  4 

4 

5 

5 

5 

5 

5   5  5 

5 

5 

5 

5 

4 

5 

5 

COVER 

TYPE 

ACRES 

* 

COVER 

TYPE 

1 

PPL 

0-30 

0. 

0 

* 

16 

2 

PP1 

31-50 

0. 

0 

17 

3 

PPL 

51-100 

280. 

0 

18 

4 

PPL 

101-40 

62. 

2 

* 

19 

5 

PP1 

14L  + 

742  . 

2 

* 

20 

6 

PP  2 

0-30 

0. 

0 

# 

21 

7 

PP2 

3L-50 

0. 

0 

* 

22 

3 

PP2 

51-100 

0. 

0 

23 

9 

PP2 

101-40 

0  . 

0 

* 

24 

10 

PP2 

14L  + 

0. 

0 

* 

25 

11 

LGP 

0-30 

0. 

0 

12 

LGP 

31-50 

0. 

0 

* 

13 

LGP 

51-100 

0. 

0 

* 

1* 

LGP 

101-40 

0. 

0 

15 

LGP 

141  + 

0. 

0 

3323232  3  3 
3323232  3  3 
53232323131 
5   5   3   3   3  3 


3   3   3  3 
33L31323232 
3   3   4  33232 


3   3  4  4   3   3  332 


cover  type 

def0rest-b 
def0rest-g 
recreation 

BARREN 
BRUSHLAND 
RANGE-HERB 
PRI VATE 
RIGHTS/WAY 


TOTAL  AREA 


ACRES 

o.c 

0.0 
0.0 
0.0 
0.0 
17.8 
66.7 
0.0 
0.0 
0.0 


«tf«»tt(«ttl««     ACRES   BY   WORKING  GROUPS 


PONDEROSA  1 
1084.4 


PONDEROSA  2 
0.0 


LOOGEPOLE 
0.0 


DEFORESTED  ACRES  -  0.0 
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SUBCOMPARTMENT   MAP   OF   COMPARTMENT  NO.  206 


BLOCK   NO.  1 


1  1 

2  2  2   1   1   1  1 
5555522211111 
55555222211111 
55552222291111 
55552222991111 
7  5   5   5   2   2   2   21414  1111 
7   5   51414   214141414  1111 
5  51414141414141415151515 
141414141414141417171515 
L4I4L4L4L414141414171515 
1414141414141414  15 
14  14 


3   3  4 
6  6  6  3   3  4 
8   6  6  6  6 
6   6  6  6  6  61010  4 
6   6   6  61010101111 
6  6  6  610101010  4 
6   6  6101010101010 
6  6101010101610 
6   610  16 
6 


4  41213 
41212131313 


COVER 

TYPE 

ACRES 

* 

SU8C0MP • 

COVER 

TYPE 

ACRES 

PP1 

141  + 

151.1 

10 

3. 

PPL 

51-100 

93.3 

PP1 

141  + 

106.7 

11 

4. 

PP1 

101-40 

8.9 

PP1 

51-100 

17.8 

12 

4. 

PP  1 

101-40 

13.3 

PP1 

51-100 

88.9 

L3 

3. 

PP1 

51-100 

17.8 

PPL 

141  + 

111.1 

14 

5. 

PP1 

141  + 

186.7 

PP1 

141  + 

177.8 

15 

4. 

PP1 

101-40 

40.0 

PPL 

51-100 

22.2 

* 

16 

5. 

PP  1 

14  1  + 

8.9 

PP1 

51-100 

13.3 

L7 

3. 

PP1 

51-10C 

13.3 

PP1 

51-100 

13.3 

TOTAL  AREA 


***************     ACRES   BY   WORKING  GROUPS  *************** 


PONDEROSA  1 
1084  .4 


PONDEROSA  2 
0.0 


LOOGEPOLE 
0.0 


DEFORESTED  ACRES 
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PAGE   TYPE  5 


BOGUS  NATIONAL  FOREST 

TYPE 

AREA 

COVER 

TYPE 

ACRES 

1 

PP1 

0-30 

0.0 

j7 

2 

PPl 

31-50 

0*0 

3 

PP1 

51-100 

2  8  0.0 

1  fl 

4 

PPl 

101-40 

6  2*2 

1 9 

5 

PPl 

141  + 

7  42  •  2 

J 

20 

6 

PP2 

0-30 

2  l 

7 

PP2 

0*0 

2  2 

8 

PP2 

51-100 

0.0 

* 

23 

9 

PP2 

101-40 

0.0 

* 

24 

10 

PP2 

141* 

0.0 

* 

25 

11 

LGP 

0-30 

0.0 

* 

12 

LGP 

31-50 

0.0 

* 

13 

LGP 

51-100 

0.0 

* 

1* 

LGP 

101-40 

0.0 

4 

15 

LGP 

1414 

0.0 

* 

BLOCK   NO.  1 


COVER  TYPE 


ACRES 

* 

COVER  TYPE 

ACRES 

0.0 

26 

DEFOREST-B 

0.0 

0.0 

27 

DEFOREST-G 

0.0 

0.0 

* 

28 

RECREATION 

0.0 

0.0 

* 

29 

BARREN 

0.0 

0.0 

30 

BRUSHLANO 

0.0 

0.0 

31 

RANGE-HERB 

17.8 

0.0 

* 

32 

PRIVATE 

66.7 

0.0 

* 

33 

RIGHTS/WAY 

0.0 

0.0 

* 

34 

0.0 

0.0 

35 

0.0 

TOTAL  AREA 


BOGUS   NATIONAL  FOREST 

SUBCOMPARTMENTS   OF   COMPARTMENT   NO.  206 


BLOCK   NO.  1 


COVER  TYPE 

PPl  141+ 
PPl  141+ 
PPl  5L-100 
PPl  51-100 
PPl  141+ 
PPl  141+ 
PPl  51-100 
PPl  51-100 
PPl  51-100 


ACRES 

SUBCOMP. 

COVER 

TYPE 

151.1 

* 

10 

3. 

PPl 

51-100 

106.7 

* 

11 

4. 

PPl 

101-40 

17.8 

12 

4. 

PPl 

101-40 

88.9 

13 

3. 

PPl 

51-100 

111.1 

* 

14 

5. 

PPl 

141  + 

177.8 

15 

4. 

PPl 

101-40 

22.2 

16 

5. 

PPl 

141  + 

13.3 

17 

3. 

PPl 

51-100 

13.3 

* 

TOTAL  AREA 


93.3 
8.9 

13.3 

17.8 
186.7 

40.0 
8.9 

13.3 
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PONDEROSA  1 
1084.4 


PONDEROSA  2 
0.0 


LDDGEPOLE 
0.0 


DEFORESTED  ACRES 


APPENDIX  4 

An  Example  of  Record  Maintenance 


Program  GROW,  listed  below,  is  an  example 
of  the  assistance  provided  by  computers  in  the 
maintenance  of  records.  Its  purpose  is  to  update 
inventory  records  if  thinning  or  other  change 
has  not  required  replacement  with  a  new  record. 
New  inventory  data  and  updated  data  can  then 
be  combined  for  input  to  TEVAP2.  The  new 
management  plan  produced  will  be  based  on  the 
most  recent  estimates  of  forest  condition  for  all 
plots  or  subcompartments.  The  plan  can  be 
produced  during  the  winter,  between  growing 
seasons,  before  it  is  needed  to  guide  the  next 
season's  work. 

Inputs  to  GROW  are  always  original  records, 
not  the  results  of  previous  projections.  A  9999 
is  punched  instead  of  the  year  of  record  on 
inventory  cards  with  updated  information. 
Records  with  very  large  values  for  year  will  not 
be  processed  by  the  program.  Accidental  mixture 
of  original  and  updated  records  will  not  be  per- 
petuated for  use  by  TEVAP2.  This  feature  re- 
quires that  two  sets  of  inventory  records  be 
prepared  for  each  working  circle: 

1.  A  permanent  file  of  original  data  that  is 
revised  only  by  replacement  of  records.  This  file 


is  revised  continuously  as  work  and  inventory 
reports  are  submitted,  and  is  the  input  file  for 
GROW. 

2.  A  temporary  file  consisting  of  data  up- 
dated by  GROW  and  of  duplicates  of  original 
data  that  are  too  new  to  need  updating.  This 
file  contains  the  inventory  records  to  be  used 
by  TEVAP2. 

Use  of  two  files  increases  the  complexity  of 
the  record  system,  but  avoids  the  compounding 
of  projection  errors. 

Linear  projections  are  used  in  GROW 
because  other  forms  of  the  relationships  are  un- 
known. For  example,  a  2-year  increase  in 
diameter  is  assumed  to  equal  two-tenths  of  the 
increase  projected  by  an  equation  developed  for 
a  10-year  period.  Projection  periods,  the  variable 
TIME  in  TEVAP2,  should,  therefore,  be  kept 
short,  especially  for  fast-growing  species. 

GROW  produces  three  kinds  of  output: 

1.  An  inventory  card  with  updated  data  is 
punched  for  direct  use  or  for  transfer  to  mag- 
netic tape.  Alternatively,  the  logical  unit 
assigned  to  the  punch  may  be  assigned  to  a 
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tape  drive.  Card  images  of  the  temporary  inven- 
tory file  are  then  written  directly  onto  tape. 

2.  A  copy  of  the  card  or  card  image  may 
be  printed,  if  desired.  A  nonzero  value  of  DUPL 
is  read  to  obtain  the  printed  record. 

3.  A  record  of  the  number  of  cards  proc- 
essed is  written  after  all  other  operations  have 
been  executed.  The  total  does  not  include  any 
previously  updated  records  accidentally  mixed 
with  original  data. 

As  listed,  the  relationships  in  GROW  apply 
to  ponderosa  pine  in  the  Black  Hills.  Similar 


programs  can  be  prepared  for  other  species  by 
replacing  the  species-specific  statements  with 
equivalents  from  section  3  of  the  appropriate 
species-specific  subroutine  of  TEVAP2.  Even  the 
dwarf  mistletoe  rating  can  be  updated.  For 
lodgepole  pine  (Myers  et  al.  1971): 

IF  (DMR  .LE.  1.0)  GO  TO  100 
DMR  =  DMR  +  0.07  *  RINT(I) 
GO  TO  105 

100  DMR  =  DMR  +  (0.03  +  0.038  *  DMR)  * 
RINT(I) 


L 


PROGRAM  GROW 

1 ( I NPUT, OUTPUT .PUNCH, TAPE5= INPUT, TAPE6=0UTPUT , TAPE 7=PUNCH, TAPE4=TAP 
2E5) 

C 

C   TO  UPDATE   INVENTORY    IF   NO  CHANGES  EXCEPT   NORMAL   GROWTH   HAVE  OCCURRED. 

C 

C   DEFINITIONS   OF   VARIABLES   NOT   ALREADY   DEFINED   IN   PROGRAM  TEVAP. 
C 

C  ADD  =   NUMBER  OF   YEARS   TO   PROJECT    INVENTORY  DATA. 

C  ANO  =  YEAR  AFTER   LAST   GROWING  SEASON   TO  BE  PROJECTED. 

C  DUPL  =    INDEX   TO  PRINT    (1)    OR   OMIT    (BLANK   OR   0)   NEW  DATA. 

C  NBR   =   NUMBER   OF    INVENTORY   CARDS  PROCESSED. 

C 

DIMENSION   AGE (2) ,BASI 2) , DATE! 61 , DBHt 2 ) , DENI 2) .OMR (2) , FAG  I  21 , 
1FDENI2) ,F0MI 2) , F  DMR ( 2  I ,FHT( 2) , FORE  T ( 19  I , HT ( 2 ) , JDMR ( 2 ) , J F AG( 2  I , 
2JFDEN12) , JFDMI2), JFHTI2) 

C 

KNTR   =  0 
NBR   *  0 

C 

C   READ   VALUES   COMMON  TO   ALL   CARDS . 
C 

READ   (5,11  (F0RET(I),I=1,19I 
1   FORMAT  (18A<i,A2) 

READ   (5,5)  (DATE(I),I=1,6) 
5   FORMAT  (6A4) 

READ   (5,10)    RINT, DUPL, ANO, NBK 
10  FORMAT  <3F4.0,I<f) 

C 

C    INITIALIZE   VARIABLES   RECOMPUTED  FOR   EACH    INVENTORY  CARD. 

C 

15  DO  20  1=1,2 

DMR ( I )    =  0.0 

FAG  < I )    =  0.0 

FDEN(I)    =  0.0 

FDMIII    =  0.0 

FDMRI I  I    =  0.0 

FHT ( I )    =  0.0 

JDMR(I)   =  0 

JFAG ( 11=0 

JFDEN(I)    =  0 

JFDMI I )    =  0 

JFHT(I)    =  0 
20  CONTINUE 

SBAS  =  0.0 

C 

C   READ   INVENTORY  CARDS.    LAST  CARD   IS   BLANK   TO  STOP  PROCESSING. 

C    INVENTORY   RECORDS   ARE   ORIGINAL   DATA,    NOT   RESULTS  OF  PREVIOUS 

C   PROJECTIONS.   VARIABLE  WHEN   IS   ACTUAL   OATE,   NOT  DUMMY   ADDED  BY  THIS 

C  PROGRAM. 

C 

READ   (4,25)    I BK, KOMP, ISUB»QTR1»  QTR2, SECT, TOWN, RANG, SI TE , STR  Y, 
1NTYP,W0RK,FISC,D8H( 1) ,HT( 1 ) , DEN ( 1 ) , AGE ( 1 ),DMR( 1 ) , DBH ( 2 ) , HT ( 2 ) ,DEN ( 
22) ,AGE(2I ,DMR(2) , ACRE, WHEN 
25  FORMAT  (I2,I<.,I3,3A3,2A*,F3.0,F1.0,I2,F1.0,F4.0,F3.1,F3.0,F5.0,F3. 
10,F2.1,F3.1,F3.0,F5.0,F3. O,  F2 .  1 ,  F5 . 1 ,  F4. 0  ) 

C 

C   DETERMINE   IF   GROWTH  PROJECTION  CAN  BE  MADE. 
C 


IFIIBK  .LE.  0  .OR.  I BK  .GT.  NBK)  GO  TO  130 
JFISC  =  FISC 
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c 

C   TEST   DATE  OF  DATA   SO  PROJECTED  DATA  WILL   NOT   BE   PROJECTEO  AGAIN. 
C 

I F ( WHEN  .GE.   2000.0)   GO  TO  15 

NBR   =  NBR   +  1 

ADD  *  ANO  -  WHEN 

IF (ADD    .EO.   0.0)    GO  TO  T5 

I F ( DEN  1 1  I    .EQ.   0.0    .OR.   DBHI1)    . EQ •   0.0)   GO   TO  75 

C 

C  COMPUTE   FUTURE   STAND  VALUES. 

z 

BASH)    =   0.0054542   *   DBHI1)    *  DBHI  1  )   *   DEN  I  1  ) 
BAS  (  2  )    =   0.0054542   »  0BHI2)    *   DBH  (  2  )   •   DEN  (  2  ) 
SBAS  =   B4SI1)    *  BASI2) 
DO   35  1=1,2 

I F ( DBH ( I )    .EO.   0.0)   GO  TO  35 
IF(OENII)    .EO.  0.0)  GO  TO  35 
FAG  1 1 1   =  AGE ( I )   ♦  ADO 
IFID8HII)    .GE.   10.01    GO  TO  28 

FDENU)    =   0.00247   ♦  0.00124   *   DBH(I)    ♦  0.00028   «   DBH(I)   *   DBH(I)  + 
10.00000521   *  SBAS   »   SBAS   -  0.0000905  *   DBHI I )   »  SBAS 
I F I FDEN ( I )    .LT.   0.0)    FOEN(I)    =  0.0 
FOEN(I)    =   DEN  (  I  )    *   (1.0  -  FDENU)) 
GO  TO  30 
28   FDEN ( I )    =  DEN ( I  I 

30  FDH(I)    =   0.88511   *   DBHI I )    ♦   1.29735   *   AL0G10I HTI I ) )    +   0.00119  •  DB 

1HII)   »   SITE   ♦   62.3717*   /   SBAS   -  1.56975 
FHTII)    =   15.43021   ♦   1.107   *   HT(I)   -   0.08637  »   AGE  I  I )   -   304.12172  / 

1SITE   -   0.02447  *   SITE   *   SBAS   *  0.01 
35  CONTINUE 

C 

C   CHANGE   ORIGINAL  VALUES  TO  THOSE   EXPECTED   IN  ADD  YEARS. 

C 

TEH  =  ADD  /  RINT 
DO  40   1=1 ,2 

FDENU)    =   DEN(I)    ♦    (FDEN(I)   -   DENIII)    *  TEM 
FDM(I)    =   DBHI I )   ♦    t  FDMI I )    -   DBHI I  ) )    *  TEM 
FHT(I)    =  HT(I)   ♦    (FHTII)    -  HT ( I ) )    *  TEH 
40  CONTINUE 

C 

C   CHANGE   TYPE   CODES   AS   NEEDED.      REPLACE   NTYP   =   1   TO  N TYP   =   5  WITH 
C   VALUES  OF   NTYP  APPROPRIATE   TO  SPECIES   AND  WORKING  GROUP. 

C 

J  =  1 

IFISTRY  .GT.  0.0)   J  =  2 
IF(FAGIJ)    .GT.   30.0)   GO  TO  45 
NTYP  =  1 
GO  TO  65 

45   IFIFAG(J)    .GT.   50.0)   GO  TO  50 
NTYP   =  2 
GO  TO  65 

50  IFIFAGIJ)    .GT.   100.0)   GO  TO  55 
NTYP  =  3 
GO  TO  65 

55   IFIFAGIJ)    -GT.    140.0)    GO  TO  60 

NTYP  =  4 

GO  TO  65 
60  NTYP   =  5 

C 

C   CONVERT  TO  FIXED  POINT   FOR  PUNCHING.   RETAIN  NECESSARY  DEC  I  HAL  S. 

C 

65   DO   70  1=1,2 

JDHRII)    =   FDHR(I)    *   10.0   ♦  0.5 

JFAGI I )   =   FAG  I  I )    ♦  0.5 

J  FDEN ( I )    =   FDEN (  I )    +  0.5 

JFDH(I)   =   FDM(I)   *   10.0  ♦  0.5 

JFHT ( I )    =  FHTII)    t  0.5 

FAG  I  1 )    =  JFAGII) 

FOENI I )    =   JFDENI I ) 

FDHII)    =  JFDHII) 

FDM ( I  I    =   FDH ( I )    *  0.1 

FDHRII)    =  JDHRII) 

FDHRI I )   =   FOHRI I )    *  0.1 

FHT I  I )    =   JFHT 1 1 ) 
70  CONTINUE 

GO  TO  85 
75  DO  80  1=1,2 

FAG( I )    =   AGE ( I ) 

FDENU)    =  DEN  I  I  ) 

FDHII)    =   DBHI I) 

FDHRI 1 )   =  DHRI I  ) 

FHT I  I )    =  HT( I  ) 

JOHRU)    =   DMR I  I  )    *  10.0   ♦  0.5 

JF  AG  < I  )    =   AGE (  I  ) 

JFDENI I )  =  DEN  1 1 ) 

JFDHII)    =   DBH ( I )   *   10.0   ♦  0.5 

JFHT II)    =   HT I  I ) 
80  CONTINUE 
85  JSITE  =  SITE 

JSTRY  =  STRY 

JWORK  =  WORK 

JACRE  =   ACRE   »  10.0  ♦  0.5 
JWHN  =  9999 

C 

C   PUNCH  REPLACEHENT   FOR   INVENTORY   CARD,    USING  NEW  DATA. 
C 

WRITE    17,90)    I BK.KOHP, I  SUB, QTR1.QTR2,  SECT, TOWN,  RANG, JSITE, JSTRY, NT 
1YP, JWORK, JF ISC, JFDHI 1 ) , JFHT I  1  I .JFDENI II, JFAGI 1) , JDHRI 1  I , JFDMI2) , JF 
2HTI2),JFDENI2),JFAG(2),JDHR(2),JACRE,JWHN 
90  FORHAT    (12, 14, 13, 3A3,2A4, 13, II, 12, II, 14, 213, 15, 13, 12, 213, 15, 13, 12, 
115,14) 

C 

C   PRINT   RECORD  OF  NEW    INVENTORY   DATA,    IF  DESIRED. 

C 
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IFIOUPL    .EO.    O.O)    GO   TO  15 

IFIKNTR   .EO.    50)    KNTR   =  0 

I F (KNTR    . NE .    01    GO  TO  12: 

WRITE    (6,100)    ( DATE ( K ) , K= 1 , 6 ) 
100   FORMAT    ( 1H1 , // , 43X . 39HRESULTS  OF   PROJECTION  OF    INVENTORY   OA T A / 1 H  , 
142X,  18HDATA   PROJECTED   TO  ,6A4) 

WRITE    (6,105)    (FORETI I) , 1=1,191 
105   FORMAT    (  1  HO  ,SX  ,  18  A",,  A2  ) 

WRITE  (6,110) 

110  FORMAT    (  1  HO,  5  3  X,  2  9H*«  ********  OV  ERS  TOR  V**«4*  IX,  2  9H*«  *«**<■«*  UN 

1I)ERSTORY*«*«»«»»**,10X,5HORIG./1H  ,2X,5HBL0CK,2X,4HC0MP,2X,4HSUBC, 
22X,4HSITE,2X,5HSTORY,2X,4HTYPE,2X,4HW0RK,3X,  4HF  I SC , 3 X , 3HDBH , 3X , 2HH 
3T,3X,5HTREES,3X,3HAGE,2X>3HDMR,3X,3HDBH,3X,2HHT,3X,5HTREcS,3X,3HAG 
4E.2X,3HDMR,4X,4HAREA,3X,4HDATE> 

WRITE  (6,115)  IBK,KOMP,ISUB,SITE,STRY,NTYP,WORK,F1SC,FOM(1),FHT(1) 
l,FDENIll,FAG(l),DMR(ll,FDM(2l,FHT(2),FDEN(2),FAG(2),0MR(2),ACRE,WH 
2EN 

115   FORMAT  I1HO,3X,I2,5X,I3,3X,I2,F7.0,F6.0,4X,I2,F7.0,F7.0,F6.1,F6.1, 
1FS.3,F6.0,F4.1,F6.1,F6.1,F8.0,F6.0,F4.1,F!).1,F7.0I 
KNTR  =   KNTR   ♦  1 
GO  TO  15 

120  WRITE  16,125)  I BK , KOMP , I S U8 , S 1 T E , S TRY , NT YP , WORK , F I SC , FDM ( 1 ) , FHT ( 1 ) 
l,FOEN(l),FAG(l),OMR(l),FDM(2),FHT(2),FOEN(2),FAG(2),DMR(2l,ACRE,WH 
2EN 

125   FORMAT    (1H   ,  3X,  I  2,  5X,  I  3  ,  3X,  I  2,  F7.  0,  F6  .  0,  4X,  I  2  ,  F  7.  0,  F  7  .0,F  6.  1  ,  F6.  1  , 
1F8.0,F6.0,F4.1,F6.1,F6.1,F8.0,F6.0,F4.1,F9.1,F7.0) 
KNTR   =   KNTR   +  1 
GO   TO  15 

C 

C   RECORD   THAT   THE   CHANGES  WERE   MADE . 
C 

130    IFIDUPL   .EO.   0.0)    GO   TO  140 

WRITE    16,135)  NBR 
135   F0RMATI1H0,//,5X,27HNUMBER  OF   CARDS   REPUNCHED-  ,15) 

GO  TO  200 
140   WRITE  (6,145) 

145   FORMAT    (  1H1 , //// ,43X,  38HRECORD  OF   PROJECTION   OF    INVENTORY  DATA) 

WRITE    (6,150)    (FORE T(I), 1=1, 19) 
150   FORMAT    (  1H0  ,/ ,43X  ,  16HS0URCE   OF   OAT  A-  ,18A4,A2) 

WRITE    (6,155)    ( DATE! I ), 1= 1, 6) 
155   FORMAT    ( 1H0, / ,43X, 18HDATA   ADJUSTED   TO-  ,6A4) 

WRITE    (6,1601  NBR 
160   FORMAT    ( 1  HO , / , 5 X , 2 7 HNUMBE R   OF   CARDS   REPUNCHED-  ,15) 
200   CALL  EXIT 

END 
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